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Förord 


Denna lärobok är skriven för Turbo Pascal ver 4.0 men går alldeles utmärkt att 
använda tillsammans med tidigare versioner av Turbo Pascal. Boken är en utvid¬ 
gning av ett kompendium som har använts för både självstudier och lärarledd un¬ 
dervisning på Pauliskolan i Malmö under tre år. De elever som använt kompendiet 
har i de flesta fall aldrig programmerat i Pascal. Det är vår erfarenhet att 
eleverna både snabbt och enkelt lär sig att behärska Turbo Pascal. Vi ser därför 
enbart fördelar i att ha Pascal som första språk. 

Många läroböcker i programmering förutsätter ofta goda kunskaper i ämnet matema¬ 
tik. Vi har emellertid försökt att disponera boken så, att huvudinnehållet en¬ 
bart bygger på matematikkunskaper motsvarande grundskolan, men även försökt 
tillgodose andra med stoff från matematiken i gymnasiet i vissa avgränsade av¬ 
snitt. 

Då vi rent allmänt tror på att en inlärning skall vara så aktiv och så konkret 
som möjligt har vi försökt att undvika längre sammanhängande teoretiska beskriv¬ 
ningar. Vi tror att detta är speciellt viktigt när nya moment introduceras. 
Boken är därför upplagd på detta sätt, dvs en genomgång av ett nytt språkelement 
avlöses omedelbart av förtydligande programexempel, följt av ett nytt språkele¬ 
ment osv. 

Detta innebär att du som användare av boken mycket snart kommer igång med att 
skapa egna program. Det enklaste sättet att förstå hur teorin fungerar är att 
parallellt med boken studera effekterna av bokens programexempel med hjälp av 
Turbo Pascal. Du kan sedan testa dina kunskaper med hjälp av övningsuppgifterna 
som är samlade i kapitel 15. Där finns till varje kapitel ett stort antal öv¬ 
ningsuppgifter som mer än väl täcker motsvarande teoriavsnitt. 


När det gäller själva utformningen av programmen har vi valt att använda oss av 
den stil som förekommer i många standardverk om Pascal. Vi skriver därför 

reserverade ord i fetstil. 

alltid början av program-, funktions- och procedurnamn med stor bokstav, 
alla variabler och konstanter med små bokstäver. 

För att strukturen i programmen skall framträda tydligare gör vi indragningar i 
programtexten på vedertaget sätt. 

För dig som inte vet hur man skapar ett pascalprogram med hjälp av Turbo Pascal, 
rekommenderar vi att börja med kapitel 14 ARBETA MED TURBO PASCAL och parallellt 
arbeta med tillhörande övningsuppgifter. I detta kapitel beskrivs ingående hur 
du kan skapa, köra och spara dina program. Många andra funktioner i Turbo Pascal 
förklaras här, inte minst editorns många möjligheter. 

För övrigt menar vi att kapitlena bör läsas i turordning. Vi vill dock påpeka 
att vi ganska tidigt, redan i kapitel 5 SKÄRMHANTERING OCH GRAFIK redogör för 
skärmhantering och grafik, då vi funnit att många tycker att detta är intressant 
och vill tillämpa det på olika pascalmoment. Om du inte är intresserad av grafik 
kan du hoppa över detta kapitel. 


Liknande förhåller det sig med kapitel 10 PASCALENHETER, UNITS I TURBO PASCAL 
4.0 som är till för dig som skall skriva större program och kapitel 12 PEKARE 
som är till för dig som är intresserad av registerhantering. 



Slutligen vill vi påpeka att du i kapitel 16 SAMMANSTÄLLNING AV TURBO PASCAL har 
ett bekvämt referensverk. Här kan du finna en kort beskrivning på nästan varje 
detalj i Turbo Pascal. 


Malmö i juni 1988 
Författarna 
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1 En kort historik 

Den första "datorn". 

I början av 1800-talet inträffade en händelse som kom att revolutionera världen. 
Ångmaskinen såg då för första gången dagens ljus. Man kunde nu färdas långa 
sträckor med den svindlande hastigheten av ca 40 km/h på speciella "vägar" och 
behövde inte längre lita enbart till vanliga hästkrafter. Till sjöss kunde man 
obehindrat ta sig fram där ogynnsamma vindförhållanden tidigare skulle gjort 
detta omöjligt. 

Den största förändringen skedde emellertid inom industrin, där man fick en 
förstklassig kraftkälla i sin hand, som var billig och inte beroende av lokali¬ 
seringen som t ex vattenkraften. Den kom att bli orsaken till den industriella 
revolution som tog sin början i England på 1830-talet. 

Ett par år före uppfinningen av ångmaskinen, på hästdroskornas och segelfarty¬ 
gens tid, konstruerades emellertid världens första digitala kalkylator! Förelö¬ 
pare till denna hade visserligen förekommit redan under tidigare århundraden. 
Pascal och Leibniz, båda matematiker, hade konstruerat olika beräkningsmaskiner 
men den kalkylator som 1822 konstruerades av engelsmannen Charles Babbage, var 
den första som räknade digitalt. 

Till skillnad från ångmaskinen som genast fick en användning, skulle det komma 
att dröja mer än hundra år innan de ideer, som låg till grund för kalkylatorn 
och som Babbage utvecklade under de närmaste decennierna, fick någon egentlig 
tillämpning. 

Den maskin som Babbage konstruerade var kapabel att beräkna värdet av andrag- 
radspolynom med sex siffrors noggrannhet! Att maskinen självklart var en helt 
mekanisk konstruktion gör inte prestationen mindre. 

Uppmuntrad av framgången och med benäget bistånd av den engelska regeringen tog 
han itu med att konstruera en ännu mera avancerad maskin, the Analytical Engine. 
På detta projekt lade han ner väldiga summor av statens pengar och större delen 
av sin egen förmögenhet. Han fick själv aldrig maskinen att fungera, vilket 
naturligtvis berodde på att de problem som Babbage hade att lösa var enorma. 
Detta hindrade emellertid honom inte från att ge sig i kast med än mer komplice¬ 
rade uppgifter som kom att röna samma öde. Först senare under 1800-talet lycka¬ 
des hans son delvis förverkliga sin fars analytiska maskin. Något tidigare, på 
1850-talet, hade ett par svenskar, Georg och Edward Scheutz, byggt en förbättrad 
version av hans första maskin, vilket naturligtvis rönte Babbage's stora upp¬ 
skattning. 

0m Babbage hade varit verksam i vår tid hade han antagligen varit en mycket 
framstående datorkonstruktör. Många detaljer i hans maskiner som t ex dataminne, 
aritmetiska och logiska enheter, programmering av maskinen, är komponenter som 
är gemensamma även för dagens datorer och vittnar om den genialitet som präglade 
hans tänkande. 

Babbage som en tid var verksam som professor i matematik i Cambridge hade de 
mest skilda intressen. Ett av dessa var att så snart tillfälle gavs föra statis¬ 
tik över olika djurs puls- och andningsfrekvens. Han lät t ex vid ett tillfälle 
stänga in sig under 5 minuter i en ugn som höll ca 130°C för att studera effek¬ 
terna på sig själv. 

Intresset för kalkylatormaskiner och dess användning delade han med lady Ada 
Lovelace, dotter till den engelske skalden lord Byron. Då pengarna till Babba¬ 
ge 's olika projekt började sina, såg han en möjlighet i sin tidigare kalkylator- 
maskin. Lady Lovelace och hennes man var mycket intresserade av hästkapplöpning¬ 
ar med tillhörande vadhållning. Babbage och lady Lovelace utförde med hjälp av 
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maskinen sannolikhetsberäkningar som de sedan utnyttjade vid vadhållningen och 
lyckades på så sätt att göra av med en stor del av förmögenheten för lady Love- 
lace och hennes man. 

Samtida med Babbage var de båda engelsmännen George Boole och de Morgan. Båda 
var matematiker och formulerade den matematik som ligger till grund för våra 
dagars datorkonstruktioner. Lady Lovelace studerade en tid för de Morgan och ut¬ 
nyttjade sedan sina kunskaper om den booleska algebran när hon konstruerade ett 
symbolspråk som hon avsåg att använda för programmering av Babbage's Analytical 
Engine. 

Den moderna datorn. 

Efterföljare till Babbage konstruerade ett antal andra mekaniska maskiner som 
kunde klara specifika uppgifter, men ingenting revolutionerande hände förrän 
fram på 1930-talet då de mekaniska delarna i maskinerna började bytas ut mot 
elektriska komponenter, framför allt elektriska reläer. 

Utvecklingen började nu att accelerera och på 1940-talet byggdes ett antal stör¬ 
re relä- och elektronrörsdatorer. Den dator som framför allt blev av betydelse 
för framtiden var ENIAC, som konstruerades i USA under andra världskriget och 
som bl a användes vid konstruktionen av atombomben. Datorn som hade formen av 
ett U, skulle uträtad vara 30 meter lång, 3 meter hög och 1 meter bred! Den var 
helt bestyckad med elektronrör. På en sekund kunde den utföra 5000 additioner, 
360 multiplikationer eller 170 divisioner med 10-siffriga flyttal. Trots att den 
hade en väldig effektförbrukning, 140 kW, och därför drogs med stora kylproblem 
- elektronrören fick bytas ofta - betraktades den som ganska tillförlitlig. 

Inblandade vid utvecklingen ENIAC var bland andra John von Neumann, som av många 
betraktas som den moderna datorns fader. 

Efter ENIAC byggdes ett antal datorer som de flesta följde de principer som von 
Neumann anvisat och som vi idag brukar räkna till den första generationen av 
datorer. 

Utvecklingen under 1950-talet och framåt skedde i en ständigt accelererande 
takt. På femtiotalet började transistorn att ersätta elektronrören, under sex¬ 
tiotalet togs integrerade kretsar i bruk och i början av sjuttiotalet är vi 
framme vid de första mikroprocessorna som inledde den stora masstillverkningen 
av datorer. 

I våra dagars datorer, den fjärde generationen, finns oftast en något mera avan¬ 
cerad mikroprocessor än sjuttiotalets. Den framtida femte generationen förväntar 
man sig framför allt innebära andra datorkonstruktioner. Man har alltmera börjat 
intressera sig för att koppla ihop flera datorer som kan arbeta var för sig. På 
många håll bedrivs därför intensiv forskning om parallella processer i datorsys¬ 
tem, en företeelse som på sin tid också intresserade Babbage och som han delvis 
också lyckades lösa! 

Programspråk. 

Då datorerna på 40-talet blev alltmer kapabla växte också behovet av att kunna 
programmera dem på ett vettigt sätt. Programmeringen av datorerna som i de fles¬ 
ta fall tidigare gjorts för hand genom att tal och instruktioner, maskinkoden, 
matats in i maskinen med omkopplare, började nu att anta en annan form. 


Inmatningen av instruktioner och data gjordes istället med hjälp av hålkort och 
i stället för en ren maskinkod använde man ett symbolspråk som blev början till 


dagens assemblerspråk. Till en början nöjde man sig med att ge maskininstruktio¬ 
nerna i symbolisk form, som operationskoder dvs bokstavskombinationer, och lät 
maskinen själv översätta dessa till ett för maskinen begripbart format. 
Assemblerkoden bestod ofta av en "rak" kodning, en blandning av operationskoder 
och adresser och konstanter, som i en sekventiell följd beskrev vad datorn hade 
att utföra. Snart nog införde man begreppen subrutiner och makroinstruktioner, 
med vars hjälp man kan lösa ofta återkommande problem om än på olika sätt. 
Assemblerspråken är beroende av den processor som sitter i datorn varför ett 
program skrivet för en speciell dator måste omarbetas om man vill använda det på 
en dator med en annan processor. Detta är en av anledningarna till att man idag 
mera sällan skriver rena assemblerprogram och endast använder det då man vill ha 
största möjliga effektivitet och snabbhet i sina program. 

Även om assemblerprogrammeringen innebar ett steg framåt kvarstod behovet att 
kunna instruera datorn med begrepp som låg på ett lite högre plan. Den enkla 
satsen "multiplicera variabeln a med variabeln b och lägg resultatet i variabeln 
c" kräver åtskillig assemblerkod. Mot slutet av femtiotalet hade man lagt grun¬ 
den till tre stora programspråk som tillgodosåg behoven av problemorienterade 
instruktioner - FORTRAN, ALGOL och COBOL. 

Dessa språk kan användas generellt, men lämpar sig bäst till olika typer av 
program. COBOL är speciellt utformat för att möta administrativa krav bl a inom 
affärsvärlden och innehåller därför kraftfulla rutiner för hantering av komplexa 
datamängder. Beräkningsproblem är svårare att realisera i COBOL men desto lätta¬ 
re i FORTRAN, som man från början avsåg att använda på matematiskt orienterade 
problem. Det är numera ett mycket spritt språk och används i vitt skilda samman¬ 
hang, även administrativa. 

Det tredje språket, ALGOL, har till skillnad från de båda andra europeiskt ursp¬ 
rung. Programspråket har en mera strikt uppbyggnad än vad fallet är för de båda 
andra och lämpar sig liksom FORTRAN till numeriska beräkningar, till att behand¬ 
la algoritmer i olika former, därav dess namn. I ALGOL introduceras bl a 
blockstrukturer med parameteröverföring, globala och lokala variabler, begrepp 
som vi är vana att ett modernt språk innehåller. 

Dessa tre språk var de helt dominierande under sextiotalet och är fortfarande 
betydelsfulla på grund av de enorma investeringar som gjorts i form av program¬ 
vara. Alla tre har under åren genomgått revideringar. ALGOL är numera på tillba¬ 
kagång men har lämnat stora bidrag till viktiga efterföljare. 

Ett annat språk från sextiotalet är det interaktiva språket BASIC. Det används 
idag ofta på mikrodatorer och har blivit något av ett nybörjarspråk även om 
många invändningar rests mot detta. Anledningen är framför allt de svaga kont¬ 
rollmöjligheter som står till buds och att språket lätt kan ge upphov till dåli¬ 
ga programmeringsvanor i och med att det svårt att ge struktur åt ett program. 

Ett bättre alternativ anses Pascal erbjuda. Pascal är ett till omfånget litet 
språk som lånat stora drag av ALGOL men även av andra programspråk. Det togs 
fram i början av sjuttiotalet av Niclaus Wirth just med tanke på att användas i 
programmeringsundervisning. Språket befrämjar goda programmeringsvanor och un¬ 
derstödjer strukturerad programmering. Det erbjuder dessutom goda kontrollmöj¬ 
ligheter bl a genom den hårda typkontrollen. 

Svagheter i standard Pascal är den nästan obefintliga stränghanteringen och den 
mycket enkla filhanteringen. Detta är emellertid detaljer som man i många dia¬ 
lekter av Pascal åtgärdat. 

Wirth har efter Pascal ägnat sig åt att ta fram ett annat språk, Modula-2. Nam¬ 
net syftar på ett begrepp som introduceras här, moduler. I den variant av 
Pascal, Turbo Pascal, som vi redogör för i den här boken har man infört ett lik¬ 
nande begrepp, sk units. Modula-2 är ett så pass nytt språk att det är svårt att 
sia om dess betydelse i framtiden. 
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Ett annat programspråk som är av intresse idag är programspråket C, som är in¬ 
timt förknippat med operativsystemet UNIX. Detta operativsystem menar många kom¬ 
mer att bli det förhärskande och språket C skulle härigenom möjliggöra en porta- 
bilitet av program mellan olika datorer som är helt unik. Då kostnaden för prog¬ 
ramvaran tenderar att öka är ju detta mycket önskvärt. Hur det blir med detta 
återstår att se. 

Språket C är mycket snarlikt Pascal men saknar bl a den hårda typkontroll söm är 
kännetecknande för Pascal. Det anses vara ett ganska maskinnära språk. 

Ett språk som är avsett att förena det bästa av det mesta är språket ADA. Ut¬ 
vecklingen av detta språk har pågått under många år på beställning av det ameri¬ 
kanska försvarsdepartementet. Kritiker menar att man i sina försök att tillgodo¬ 
se många olika intressen har åstadkommit en koloss på lerfötter. Språket har 
ännu inte hunnit börjat spridas, det finns inte många fungerande kompilatorer, 
så framtiden får utvisa om kritikerna har rätt. 

Idag knyts stora förhoppningar till språk för sk artificiell intelligens bl a 
språken Lisp och Prolog. 

Lisp är ett språk som faktiskt har sina rötter i ett tidigt fyrtiotal och som 
utvecklades under slutet av femtiotalet. Det kännetecknas framför allt av sin 
listhantering. I språket ingår också ett stort mått av rekursion. Lisp har under 
senare tid vunnit mycket stor spridning. 

Prolog karakteriseras främst av sin sk predikatlogik, dvs dess möjlighet att 
behandla regler och fakta och dra slutsatser av detta. 

Båda språken lämpar sig till att bygga upp expertsystem, system som lämnar svar 
på frågor på grundval av de fakta systemet förses med. Exempel på detta är diag¬ 
nostik med åtföljande behandling inom sjukvården. 

Det finns idag hundratalet olika programspråk mer eller mindre betydelsefulla. 
Vi har valt att peka ut några viktiga för utvecklingen och andra som är av spe¬ 
ciellt intresse med tanke på den här boken. 


2 Enkla pascalbegrepp 

2.1 Utskrift av text. 

Write-satsen. 

Exempel 2.1 

Vi skall börja med ett enkelt Pascalprogram, som bara ger utskriften : 

Detta är ett enkelt Pascalprogram. 

program Utskrift; 
begin 

Write('Detta är ett enkelt Pascalprogram.'); 

end. 


1. Alla Pascalprogram bör börja med ordet program följt av ett namn, i detta 
fall namnet Utskrift. Denna rad kallas programhuvud. 

2. Orden begin och end följt av en punkt anger var programdelen börjar och slu¬ 
tar . 

3. Ordet Write ger utskrift på skarmen. Det som skrivs ut är det som står mellan 
apostroferna ('). Write är en s k standardidentifierare. 

4. Semikolon (;) markerar för kompilatorn hur långt den skall översätta innan 
den börjar med nästa sats. Eftersom man lätt glömmer semikolon och det egent¬ 
ligen bara finns ett fall när en sats inte får avslutas med semikolon, är det 
en nödvändig regel att man tillfogar semikolon när en sats är slut. 

5. Orden program, begin och end kallas för reserverade ord. Reserverade ord kom¬ 
mer vi genomgående att skriva med fetstil för att öka läsbarheten. 

I appendix A finns en lista över alla reserverade ord. 

Programmet Utskrift kan även ha följande utseende, dvs utan programhuvud: 

begin 

Write('Detta är ett enkelt Pascalprogram. '); 

end. 


Programnamn. 

Vi kommer att börja alla våra program med det reserverade ordet program följt av 
ett programnamn, som vi själva hittar på. Programnamnet får ej innehålla bokstä¬ 
verna å, ä, ö, Å, Ä ö eller -. Vidare får det ej börja på en siffra. I program¬ 
met ovan valde vi programnamnet Utskrift för att detta var ett lämpligt namn, 
som associerar till vad programmet utför. Programnamnet måste vara unikt, dvs 
det får ej användas som variabelnamn i programmet, ej heller som label, kons¬ 
tant, datatyp, procedur, funktion eller som namn på en Pascalenhet som redan 
finns. Vi redogör för dessa begrepp längre fram. 

Kort sammanfattning. 

Alla Pascalprogram måste börja med det reserverade ordet begin och sluta med det 
reserverade ordet end följt av en punkt, för att erhålla en utskrift av text på 
skärmen används satsen Write. Det som kommer att skrivas ut, är det som står 
mellan apostroferna ('). 


Write( 'HEJ! '); 
Write( 'Hej! '); 


ger utskriften 
ger utskriften 


HEJ! 

Hej! 


Writeln satsen. 


Exempel 2.2 

program Utskrift2; 

begin 

Writeln('Programspråket Pascal utvecklades av '); 
Writeln('Niklaus Wirth i början av 1970-talet.'); 

end. 


Detta program ger utskriften: 

Programspråket Pascal utvecklades av 
Niklaus Wirth i början av 1970-talet. 

I programmet ovan finns ordet Writeln. Detta ger precis som Write en utskrift på 
skärmen, men följt av vagnretur och ny rad. 

2.2 Rensa bildskärmen. 

Om du vill rensa bildskärmen, finns det i Turbo Pascal instruktionen 

ClrScr; ( Engelska: Clear screen ) 

V 

ClrScr tömmer bildskärmen och placerar textmarkören i det övre vänstra hörnet. 
Eör att instruktionen ClrScr skall kunna användas i ett program måste raden 

uses Crt; 

tillfogas i programmet. Detta beror att ClrScr är en procedur som finns i Pasca- 
lenheten Crt. I Turbo Pascal ver 3.0 skall kommandoraden uses Crt ej användas. 

Exempel 2.3 

program Rensa; 
uses Crt; 
begin 

ClrScr; 

Writeln('Ren och fin skärm.'); 

end. 

2.3 Variabler. 

Identifierarnamn. 

Med identifierarnamn menas namnet på en variabel, konstant, datatyp, procedur 
eller funktion. Konstant, datatyp, procedur och funktion förklaras senare. Iden¬ 
tifierarnamn måste alltid börja på en bokstav (a..z eller A..Z) och kan därefter 
följas av godtyckligt antal bokstäver, understrykningar, / eller siffror. Pascal 
skiljer inte på stora och små bokstäver för identifierarnamn. Variablerna Tid, 
tid och TID kommer alltså att tolkas som en och samma variabel. Reserverade ord 
tillåts inte som identifierarnamn. En identifierare kan vara hur lång som helst 
men endast 63 tecken är signifikanta. 


Olika variabeltyper (datatyper). 


En variabeltyp (datatyp) definierar den tillåtna mängd av värden som en variabel 
kan anta. Varje variabel som införs i ett program måste deklareras. Att deklare¬ 
ra en variabel innebär att vi måste tala om för datorn vad variabeln kan anta 
för värden dvs vilken datatyp variabeln skall tillhöra. 

Datorn skiljer på: 


Datatyp Representeras av 


real 

reella tal (flyttal) 5.0 

(tal som kan ha decimaler) 

56.7 

-0.05 

2.0E5 

integer 

heltal 

5 

34 

0 

-345 

char 

enstaka tecken 

a 

F 

2 

! 

string 

strängar 

Hej 

gå 

arbeta 

444 


(Inget tecken, ett tecken eller flera tecken tillsammans) 
boolean true (sant) eller false (falskt), 

pointer Innehåller adressen till en minnescell i datorn. 


Obs! Decimaltecken representeras av en punkt. 

Flyttal får en att tänka på något som flyter och så kan det också tolkas, nämli¬ 
gen att decimaltecknet flyter omkring. V^d betyder egentligen 2.0E5? E5 står för 
basen tio och exponenten 5 d v s 2.0 10 . Datatyperna char, string, boolean och 
pointer behandlar vi längre fram. 

Deklaration. 

Att deklarera variabler kan se ut på följande sätt. 

program Tal; 

var antal : integer; 

begin 


Vi lägger variabeldeklarationen mellan de reserverade orden program och begin. 
Integer betyder att variabeln antal kan anta (tilldelas) heltalsvärden. 

Om vi i stället vill att antal skall anta flyttalsvärden får vi byta ut integer 
mot real. 

program Tal; 

var antal : real; 

begin 


Datatyper för heltal och flyttal. 

Vi skall titta lite närmare på vad det är för skillnad på att deklarera variab¬ 
ler som flyttal eller som heltal. I ver 4.0 finns det fem datatyper för heltal 
och fem datatyper för flyttal. 
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Heltal. 



Tar mindre plats i datorns minne. 

Går fortare att utföra beräkningar med. 

Ungefär 1000 ggr snabbare än motsvarande flyttalsberäkning. 

Fördelarna med flyttal är: 

Större talområde. 


Utskrift av en variabels värde. 

Om en variabel har tilldelats ett värde kan detta värde skrivas ut på skärmen 
med hjälp av en Write- eller Writelnsats. Om vi har en variabel; låt oss kalla 
den för antal, och antal har värdet sju kommer satsen: 

Write(antal); 

att ge utskriften: 7 

Satsen 

Writeln(antal); 

ger utskriften 7 följt av vagnretur och ny rad precis på samma sätt som för ut¬ 
skrift av text. 

Obs! Inga apostrofer vid utskrift av variablers värden. 
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Tilldelning. 

Att tilldela variabeln antal värdet 7 kan ske med satsen: 
antal := 7; (:= utläses tilldelas). 


Exempel 2.4 

Det fullständiga programmet som skriver ut värdet av antal kan se ut på följande 
sätt. 

program Tal; 

var antal : integer; 

begin 

antal := 7; 

Writeln(antal); 

end. 

Skräptecken. 

Om satsen antal := 7; tas bort i programmet ovan och programmet därefter körs, 
skriver Writelnsatsen ut ett helt slumpmässigt tal. Detta beror på att pascalva- 
riabler inte nollställs från början och de kan då innehålla vilka värden som 
helst dvs "skräp". 

2.4 Aritmetiska uttryck. 

Aritmetiska uttryck kan innehålla de vanligaste aritmetiska operationerna + , 

* och /. Tecknet * står för multiplikation och tecknet / för division. För 
beräkning av ett aritmetiskt uttryck gäller de vanliga matematiska prioritets- 
reglerna. 

Tilldelning genom beräkningsuttryck. 

En variabel kan också tilldelas ett värde genom ett beräkningsuttryck. 

summan := tall + tal2; 
arean := basen * hojden/2; 
momsen := 0.2346 * nettopriset; 

Till höger om tilldelningstecknet := får finnas ett godtyckligt uttryck. 

Viktigt! 

1. Om både flyttal och heltal ingår i en beräkning med operatorerna + ,- och *, 
representeras resultatet som ett flyttal. 

2. För operatorn / gäller att kvoten alltid representeras som ett flyttal, 
även om täljare och nämnare är heltal. 

3. Man kan tilldela en flyttalsvariabel ett heltalsvärde och heltalet omvand¬ 
las automatiskt till ett flyttal. Däremot kan inte en heltalsvariabel till¬ 
delas ett flyttal. 
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Exempel 2.5 

Antag, att tall, tal2 och tal3 är deklarerade som integer och tal4 som real. 


Antag 

vidare att tall 

har värdet 20 och 

tal2 värdet 2. 


tal3 

:= tall + tal2; 

ger tal3 värdet 

22 som är av typen integer. 


tal4 

:= tall + tal2; 

ger tal4 värdet 

22 som är av typen real. 


tal4 

:= tall + 3.7; 

ger tal4 värdet 

23.7 som är av typen real. 


tal3 

:= tall + 3.7; 

är ej tillåtet 
typen real. 

eftersom beräkningsuttrycket 

blir av 

tal4 

:= tall/2; 

ger tal4 värdet 

10 som är av typen real. 


tal3 

:= tall/2 ; 

är ej tillåtet 
typen real. 

eftersom beräkningsuttrycket 

blir av 


2.5 Programexempel. 

Vi skall titta på ett pascalprogram som beräknar en sträcka, där medelhastighe¬ 
ten och tiden att färdas denna sträcka är känd. 

Från fysiken kommer du kanske ihåg att sträckan beräknas ur formeln: 
sträckan = hastigheten * tiden 

Låt oss kalla variablerna för stracka (vi får ej använda ä i variabelnamn), tid 
resp hast. 

Exempel 2.6 

program Berakna; 

var hast, tid, stracka : real; 

begin 

hast := 7.00; 
tid := 4.00; 
stracka := hast * tid; 

Write('Sträckan blir '); 

Writeln(stracka); 
end. 

Pascalprogram får nästan se ut hur som helst i sin struktur. Stora bokstäver får 
blandas med små mm. Men man måste tänka sig för så att programmet blir lättläst. 
Kom ihåg att bokstäverna å, ä ,ö Å, Ä och Ö ej skall användas i variabelnamn 
(identifierarnamn) då dessa ej tolkas som bokstäver av kompilatorn. Det går 
däremot bra att använda dessa bokstäver vid utskrifter. 


Deklarationen av variablerna i programmet Berakna kan givetvis även ha följande 
utseende: 

var hast : real; 
tid : real; 
stracka : real; 
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Vi skall skriva ut programmet en gång till och förklara dess innebörd. Som du 
även har sett så saknar pascalprogram radnummer. I programmet nedan har vi satt 
siffror inom parentes. Detta endast för att förenkla förklaringen av varje prog- 


ramrad. 


(1) 

program Berakna; 


(2) 

var hast, tid, stracka : real; 


(3) 

begin 


(4) 

hast := 7.00; 


(3) 

tid := 4.00; 


(6) 

stracka := hast * tid; 


(7) 

Write('Sträckan blir '); 


(8) 

Writeln(stracka); 


(9) 

end. 


(1) 

Satsen anger början på programmet, som vi kallar Berakna. 


(2) 

I början av ett pascalprogram måste man räkna upp namnen på 

de variabler 


programmet innehåller. Man säger att variablerna deklareras. Real anger att 
hast, tid och stracka bara kan tilldelas flyttalsvärden. 

(3) 

Orden begin och end anger var programdelen börjar och slutar. 


(4) 

Variabeln hast tilldelas ett värde. ( := utläses tilldelas.) 


(3) 

Variabeln tid tilldelas ett värde. 


(6) 

Variabeln stracka tilldelas det värde som uttrycket " hast * tid " beräknas 
till. 

(7) 

Ordet Write ger utskrift på skärmen. Det som skrivs ut är det 
apostrofer ( '). 

som står inom 

(8) 

Värdet av den beräknade variabeln stracka skrivs ut, följt av 
ny rad. 

vagnretur och 

(9) 

Slut på programmet. Den sista end-satsen (i detta fall är det 
den enda ) i ett program avslutas med en punkt. 

i och för sig 


Snyggare utskrifter av reella tal. 

Programexemplet gav ganska dålig utskrift, eftersom datorn skrev ut resultatet i 
tiopotensform (2.8000000000E+01). 

Vidd. 

Du kan få en snyggare utskrift (28.00) om du skriver: 

Write('Sträckan blir '); 

Writeln(stracka :6:2); 

Siffran 6 anger hur stor vidd (antal tecken) resultatet ska skrivas ut med, dvs. 
hur stor plats hela värdet skall ta. Siffran 2 anger antalet decimaler. 

I 12j81 . |o|Ö| Obs! Högerjusterat. 

Om man anger för liten vidd, ser datorn till så att talet i alla fall får plats, 
genom att utöka vidden så mycket som behövs. 

Satsen Writeln('Sträckan blir ',stracka :6:2); ger samma resultat som satserna 

Write('Sträckan blir '); 

Writeln(stracka :6:2); 

Om vi vill ha utskriften: 

Sträckan blir 28.00 m. 
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kan detta ske med hjälp av satsen: Writeln( 'Sträckan blir ',stracka:6:2, ' m.'); 
Obs! Lägg märke till kommatecknena. 

Exempel 2.7. 

program Avrunda; 

var tal : real; Ger utskriften 13.47 

begin 

tal := 13.4673; 

Writeln(tal:6:2); 

end. 


2.6 Sammanfattning av ett pascalprograms struktur (uppbyggnad). 

Pascalprogram ser i princip ut så här: 
program <programnamn>; 

var <deklaration av variabler>; 

begin 


<här står de satser som skall 
utföras i programmet>; 


Mellan de reserverade orden program och begin har vi den s k deklarationsdelen. 

program 

. Deklarationsdel. 


begin 


programsatser. 


2.7 Konstanter. 

I deklarationsdelen talar vi bl a om vilka konstanter och variabler vi skall 
arbeta med. Konstanterna måste också deklareras och ges ett värde i deklara¬ 
tionsdelen. En konstants värde kan ej ändras under programexekveringen. 

program Skatt; 

const moms = 0.2346; 
var pris : real; 
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Vad är det för fördel med att deklarera konstanter? 


Antag, att du har gjort ett "stort" program som innehåller momsberäkningar med 
momssatsen 0.2346. Om momssatsen skulle ändras av vår regering skulle du vara 
tvungen att gå in i ditt program och ändra överallt där momssatsen 0.2346 ingår. 
Om du i stället hade deklarerat en konstant 

const moms = 0.2346; 

skulle det räcka att du ändrar konstantens värde i deklarationsdelen. Då sker 
detta också automatiskt i de delar av programmet där konstanten moms ingår. 

Obs! Då en konstant tilldelas ett värde används likhetstecken, moms = 0.2346. 

Exempel 2.8 

program DatorPris; 
const moms = 0.2346; 
var pris : real; 

begin 

Writeln('En viss dator kostar 9000 kr utan moms.'); 
pris : = 9000 + 9000 * moms; 

Writeln( 'Med moms kostar datorn ',pris : 8:2, kr.'); 

end. 

Programmet Pris ger följande utskrift: 

En viss dator kostar 9000 kr utan moms. 

Med moms kostar datorn 11111.40 kr. 

Det går också att tilldela konstanter ett konstant strängvärde. 

Ett konstant strängvärde deklareras genom att man skriver strängen omgiven av 
apostrofer. 

Exempel 2.9 

program Strang; 

const namn = 'Jacqueline'; 
begin 

Writeln(namn,' är ett vackert namn.'); 

Writeln('Givetvis finns det många andra namn, '); 

Writeln('som är lika vackra som ',namn,' .'); 

end. 


Programmet Strang ger utskriften: 

Jacqueline är ett vackert namn. 
Givetvis finns det många andra namn, 
som är lika vackra som Jacqueline. 


15 


MaxLonglnt, fördeklarerad konstant. 


I Turbo Pascal finns det ett antal fördeklarerade konstanter dvs dessa har redan 
ett bestämt värde. MaxLonglnt är en fördeklarerad konstant som innehåller 
datorns största heltal. Det värde som MaxLonglnt har kan skrivas ut med en 
Write- eller Writelnsats, t ex Writeln(MaxLonglnt); 

Exempel 2.10 

program Ver4; 
begin 

Writeln( 'MaxLonglnt är det största heltalet för Turbo Pascal 4.0.'); 

Writeln( 'MaxLonglnt = ',MaxLonglnt); 

Writeln( 'Datatypen longint har talområdet -2147483648...2147483647.'); 
Writeln('MaxLonglnt + 1 = ',MaxLonglnt + 1,' Obs! NEGATIVT TAL. '); 

WritelnC 'MaxLonglnt + 1 ger inte 2147483648.'); 

end. 

Med hjälp av programmet Ver4 kan du testa din dators heltalsområde. Lägg märke 
till vad det största heltalet (MaxLonglnt ) + 1 ger för värde. Det är viktigt 
att tänka på att heltalsområdet ibland ej räcker till för vissa beräkningar. När 
det största heltalsvärdet är nått (MaxLonglnt), så kommer datorn därefter vid 
t ex addition med talet ett inte att ge resultatet MaxLonglnt + 1 utan 
-MaxLonglnt - 1. Vi skall inte här redogöra för hur datorn räknar utan nöjer oss 
med att konstatera vad som kan inträffa. 

För heltal av datatypen integer finns det en motsvarande fördeklarerad konstant 
Maxlnt som innehåller datorns största integertal. I Turbo Pascal ver 3.0 som 
inte har datatypen longint utgör denna konstant datorns största heltal. 

2.8 In- och utmatning av tal från tangentbordet. 

Exempel 2.11 

program Dubbla; 

var tal : integer; 

begin 

Write('Ange ett heltal '); 

Readln(tal); 

Writeln; 

Writeln( 'Det dubbla värdet blir ',tal * 2); 

end. 


Värdet som tal skall tilldelas läses in med satsen : 

Readln(tal); 

Det går även att läsa in värdet med satsen: 

Read(tal); 

Readln innebär att inläsningen avslutas med vagnretur och ny rad. 
Utskriften och beräkningen sker i satsen 

Writeln('Det dubbla värdet blir ',tal * 2); 

Satsen Writeln; ger en blankrad. 
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Om vi kör programmet Dubbla får vi först utskriften: 


Ange ett heltal 

Vi kan då t ex skriva 5 och därefter trycka på ENTER-tangenten. Utskriften blir 
då: 


Ange ett heltal 5 

Det dubbla värdet blir 10 

Exempel 2.12 

program Skivor; 
uses Crt; 
const pris = 75; 
var antal : integer; 
begin 
ClrScr; 

Writeln('Priset per skiva är ',pris, ' kr.'); 

Write('Hur många skivor önskar du köpa: '); 

Readln(antal); 

Writeln; 

Writeln('Priset för ',antal,' skivor blir ',antal*pris, ' kr.'); 

end. 

Skivorna har ett konstant styckepris på 75 kr. Variabeln antal är deklarerad för 
att anta heltalsvärden. Satsen 

WritelnC'Priset per skiva är ',pris,' kr.'); 

ger utskriften 

Priset per skiva är 75 kr. 

Att värdet 75 skrivs ut i stället för pris beror på att konstanten pris har 
detta värde. 

Om vi kör programmet och på frågan , "Hur många skivor önskar du köpa:", svarar 
5 kommer körningen i sin helhet att se ut på följande sätt: 

Priset per skiva är 75 kr. 

Hur många skivor önskar du köpa: 5 

Priset för 5 skivor blir 375 kr. 


Exempel 2.13 
program Cirkel; 

var radie, omkrets, area : real ; 

begin 

Write( 'Ange värdet på en cirkels radie : '); 

Readln(radie); 

omkrets := 2 * Pi * radie; 

area := Pi * radie * radie; 

Writeln('Omkretsen = ',omkrets :4:2); 
Writeln('Arean = ',area :4:2); 
end. 
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Programmet Cirkel beräknar omkretsen och arean för en cirkel. Programmet börjar 
med att fråga efter en radie. 

Ange värdet på en cirkels radie : 

Variabeln radie är deklarerad att anta flyttalsvärden. Efter det att variabeln 
radie fått ett värde kommer variablerna omkrets och area att erhålla de värden 
som beräkningarna 2*Pi*radie resp Pi*radie*radie leder till. I Turbo Pascal ver 
4 är Pi en funktion som returnerar värdet, 3.1415926535897932385. Värdet är 
beroende av om du har matematikprocessor eller ej. Testa vad din dator ger för 
värde genom att skriva raden, Writeln(Pi). I Turbo Pascal ver 3.0 är Pi en för¬ 
deklarerad konstant. 

Exempel på körning: 

Ange värdet på en cirkels radie : 3 
Omkretsen = 18.85 
Arean = 28.27 

Exempel 2.14 

program Addition; 

var tall, tal2, sum : integer; 

begin 

Writeln('Detta är ett program som summerar två tal'); 

Writeln; 

Write('Ange det första talet : '); 

Readln(tal1); 

Write('Ange det andra talet : '); 

Readln(tal2); 
sum := tall + tal2; 

Writeln; 

Write('Summan blir ',sum); 

end. 

Försök att redogöra för vad som kommer att ske när programmet exekveras. 

2.9 Read - Readln. 

Med hjälp av Read eller Readln går det att läsa in värden till variabler från 
tangentbordet. Vi har i våra exempel använt Readln vid inläsning, men givetvis 
går det lika bra att använda Read. Vi skall här redogöra i ett par exempel för 
skillnaden mellan Read och Readln. 


Antag, att vi i ett program har följande rader: 

Write( 'Ange två tal: '); 

Read(tall); 

Read(tal2); 


Vi svarar följande: 

Ange två tal: 5 9 (Obs! mellanslag mellan 5 och 9) 
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Efter det att vi tryckt på ENTER-tangenten kommer tall att få värdet 5 och tal2 
värdet 9. Om vi istället skrivit: 

Ange två tal: 59 (Obs! Inget mellanslag mellan 5 och 9) 

och därefter tryckt på ENTER-tangenten kommer tall att få värdet 59 och därefter 
väntar tal2 på att erhålla ett värde. Programraderna ovan kan ersättas med: 


Write('Ange två tal: '); 

Read(tal1,tal2); 

En Read-sats kan alltså ha utseendet Read(variabel, variabel, ...); 


Readln. 

En readln sats läser ett värde och avslutar med vagnretur och ny rad. 
Antag, att vi i ett program har följande rader: 


Write('Ange två tal: '); 
Readln(tal1); 
Readln(tal2); 


Vi svarar följande: 

Ange två tal: 5 9 (Obs! mellanslag mellan 5 och 9) 

Efter det att vi tryckt på ENTER-tangenten kommer tall att få värdet 5 och 
därefter väntar tal2 på att erhålla ett värde. Talet 9 kommer aldrig att läsas 
in. 


2.10 Styra textmarkören. 

Textmarkören går att styra till olika platser på skärmen med hjälp av kommandot 
GotoXY(x,y); 

x och y inom parentesen (x,y) motsvaras av koordinaterna x och y på bildskärmen 
d v s x står för kolumn och y för rad. 

- Koordinaterna skall deklareras som heltal. 

- Koordinaterna kan vara beräkningsuttryck. 

För en standard bildskärm gäller att: 

1 < = x < = 80 och 1 < = y < = 25 

Övre vänstra hörnet på bildskärmen har x = 1 och y = 1. 

Proceduren GotoXY finns i Pascalenheten Crt, vilket medför att raden uses Crt 
måste tillfogas till programmet. 
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Exempel 2.15 


program FlyttaMarkor; 
uses Crt; 

var x, y : integer; 
begin 
ClrScr; 

Writeln('Var vill du ha texten: NU ÄR JAG HÄR!'); 

Write( 'Ange x: '); 

Readln(x); 

Write( 'Ange y: '); 

Readln(y); 

GotoXY(x,y); 

Writeln( 'NU ÄR JAG HÄR! '); 

end. 

2.11 Kommentarer i programmet 

För att man lättare skall kunna bilda sig en uppfattning om vad ett program gör, 
kan programmeraren lägga in förklarande text i programmet. En kommentar i ett 
program börjar med { och avslutas med }. 

Det går även att använda (* *) i stället för { och } . 

(* Detta är ett exempel på en kommentar *) 

stracka := hast * tid; {sträckan beräknas) 

2.12 Utskrift med skrivare. 

Write och Writeln ger utskrift på bildskärmen, men genom att skriva Lst i en 
Write- eller Writelnsats kan utskriften styras till en skrivare. För att använda 
Lst måste uses Printer anges i programmet. Detta beror på att variabeln Lst är 
deklarerad i Pascalenheten Printer. I ver 3.0 skall inte "uses Printer" anges 

Exempel 2.16 

program TillPrintern; 
uses Printer; 
begin 

Writeln(Lst,'Denna text skickas till skrivaren.'); 

end. 


Lst är en förkortning för skrivarenheten. 


2.13 Konvertering mellan datatyper av heltalstyp och flyttalstyp. 

En variabel av flyttalstyp kan anta värdet av en variabel som är av heltalstyp. 
Men hur ställer det sig tvärtom? 

Eftersom värden av dessa båda datatyper inte representeras på samma sätt i 
datorn måste först en översättning från den ena datatypen till den andra göras 
innan värdet kan lagras. 

I programmet nedan kan du studera vad som blir resultatet av de båda övergångar¬ 
na . 
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Exempel 2.17 


program Konvertera; 

var integertal : integer; 
longinttal : longint; 

begin 

integertal := 2500; { inom talområdet för integertal } 

longinttal := integertal; { konvertering } 

Writeln('Variablernas värde är: '); 

Writeln('integertal = ', integertal); 

Writeln('longinttal = ', longinttal); 

longinttal := 100000; { ligger utanför integertalområdet } 

integertal := longinttal; { konvertering, talet longint ligger } 

Writeln('Variablernas värde är: '); { utanför integertalområdet } 

Writeln('longinttal = ', longinttal); 

Writeln('integertal = ', integertal); 
end. 

I satsen 

longinttal := integertal; 

erhåller variabeln longinttal värdet 2500. Detta går ju bra eftersom 2500 ligger 
innanför talområdet för datatypen longint. 

Eftersom värdena i datatypen integer finns representerade i datatypen longint är 
det inga problem att utföra konverteringen från variabler deklarerade som inte¬ 
ger till variabler deklarerade som longint. 

Problem kan däremot uppstå vid konvertering åt andra hållet. I satsen 
integertal := longinttal; 

erhåller variabeln integertal ett värde som ligger utanför talområdet för data¬ 
typen integer. 

0m kompileringsdirektivet range check är ställt som off (av) sker en sk overflow 
och integertal erhåller värdet -31072. 0m range check är ställt som on (på) av¬ 
slutas exekveringen av programmet och felmeddelandet "Runtime error 201 at ... " 
skrivs på skärmen. Range checking hittar du i huvudmenyn under Options och Com- 
piler. 

Kompileringsdirektiv. 

I Turbo Pascal ver 4.0 går det som vi sett i exempel 2.17 ovan att ställa in 
vissa kompileringsdirektiv. I huvudmenyn under Options och Compiler finns ett 
antal kompileringsdirektiv. Dessa kompileringsdirektiv gäller i hela programmet. 
De är sk globala. I appendix B finns kompileringsdirektiven beskrivna. Kompile- 
ringsdirektiven ovan går lätt att ställa om genom att förflytta markören till 
det kompileringsdirektiv som skall ställas om och därefter trycka på ENTER-tang- 
enten. 

Det går också att ange kompileringsdirektiv i programmet. Kompileringsdirektiven 
påminner om en kommentar och inleds med ett $-tecken. De kompileringsdirektiv 
som skrivs i programmet är överordnade de som angetts i huvudmenyn. Kompile¬ 
ringsdirektiven kopplas på med ett plustecken och kopplas bortmed ett minusteck¬ 
en . 
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Exempel 


Direktiv för att koppla på Range-checking {$R+} 

Direktiv för att koppla bort Range-checking {$R-} 

Om du befinner dig i editorn och trycker på CTRL-F7 skrivs de aktuella direkti¬ 
ven i programmet. Kompileringsdirektiven skiljer sig åt i ver 4.0 och 3.0 

2.14 SAMMANFATTNING. 

Pascalprogram ser i princip ut så här: 
program <programnamn>; 

uses <koppla ev Pascalenheter till programmet (ver 4.0)>; 
const <deklaration av konstanter>; 
var <deklaration av variabler>; 

begin 

<här står de satser som skall utföras i programmet>; 

end. 


Utskrift sker med satserna Write eller Writeln. Writeln ger till skillnad mot 
Write vagnretur och ny rad efter utskriften. 

Ex på utskrift av: 

text : Write( 'Hej på dig!'); 

variablers värden : Write(variabel); 

text och variabelvärde : Write('Variabeln har värdet variabel); 

Kommando för att rensa bildskärmen: ClrScr (ver 4.0 fodrar uses Crt ) 

Inmatning sker med satserna Read eller Readln. 

Ex Readln(variabel); 

Tilldelning av värden till en variabel: 

Ex variabel := 7; 

variabel := tall + tal2; 
variabel := summa/antal; 

Inga namn som ingår i språket Pascal får användas som variabelnamn. Programnam¬ 
net, variabler och konstanter får ej börja på en siffra, ej heller innehålla 
bokstäverna å, ä, ö, Å, Ä, Ö eller minustecken (-). Vid utskrifter med hjälp av 
Write eller Writeln går det bra att använda å, ä, ö, Å, Ä, Ö eller -. 

Konstanters värden kan ändras genom att man ändrar i deklarationsdelen. 

Markören styrs med GotoXY(x,y); (ver 4.0 fordrar uses Crt ) 

En kommentar inleds med { och avslutas med } 

Ett pascalprogram avslutas alltid med det reserverade ordet end följt av en 
punkt. 

end. 
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3 Aritmetiska och logiska uttryck. Datatypen boolean 

I detta avsnitt skall vi behandla aritmetiska och logiska uttryck. Med uttryck 
menar vi ett beräkningsuttryck av något slag, t ex en addition av två heltal. 

3.1 Aritmetiska uttryck. 

3.1.1 Aritmetiska operatorer. 

Vi har redan använt de vanliga aritmetiska operatorerna för de fyra räknesätten: 

+ addition 

subtraktion 
* multiplikation 

/ division 

Se sidan 11. 

Dessa används naturligtvis på storheter som är av heltalstyp eller av typen 
real. 

Några går dessutom att använda i samband med andra datatyper, som vi skall 
behandla längre fram. 

Heltalsoperatorer. 

Det finns ytterligare några aritmetiska operatorer som endast kan användas på 
heltal, 

div heltalsdivision, (ca 10 ggr snabbare än / ) 

mod rest vid heltalsdivision, 

och de för Turbo Pascal speciella (och mycket snabba) bitoperatorerna 

shl 'multiplikation av heltal med potens av två' och 
shr 'division av heltal med potens av två'. 


Div och Mod. Heltalsdivision och rest vid heltalsdivision. 


a div b a divideras med b och heltalsdelen av resultatet erhålles. 

a mod b a divideras med b och resten av resultatet erhålles. 


Obs! a och b måste vara heltal och b får ej anta värdet noll. 
Exempel 3.1 

tal := 10 div 3; variabeln tal tilldelas värdet 3. 

tal := 10 mod 3; tal tilldelas värdet 1. 


Jämför detta med hur divisionen utföres för hand: 


3 heltalsdel 



- 9 _ 

1 rest 


tal 

:= -10 

div 3 

variabeln tal 

tilldelas 

värdet -3 

tal 

:= -10 

mod 3 

tal 

tilldelas 

värdet -1 

tal 

: = 10 

div -3 

tal 

tilldelas 

värdet -3 

tal 

:= 10 

mod -3 

tal 

tilldelas 

värdet -1 

tal 

: = -10 

div -3 

tal 

tilldelas 

värdet 3 

tal 

:= -10 

mod -3 

tal 

tilldelas 

värdet 1 


23 





Operatorn mod kan användas för att testa om ett tal är jämnt delbart med ett 
annat: 

om (tal2 mod tall = 0) så 

Writeln('Tal2 är jämnt delbart med tall.') 
annars 

Writeln('Tal2 är ej jämnt delbart med tall.'); 

Om tal1=3, så är detta ett enkelt sätt att ta reda på om tal2 är jämnt delbart 
med talet tre. 

Med hjälp av div går det att avkorta ett flyttal t ex 

100 * (tal div 100) ger jämnt hundratal 

10 * (tal div 10) ger jämnt tiotal 


Shl och Shr. Multiplikation och division av heltal med potens av två. 

Ett heltal av typen integer består av 16 binära positioner, dvs kan rymma 16 
ettor eller nollor. 

Operatorerna 

shl <steg> (shift left ett antal steg) och 
shr <steg> (shift right ett antal steg) 

arbetar på bitnivå genom att de flyttar ettorna och nollorna stegvis åt vänster 
eller åt höger. En förflyttning av en position motsvaras av en heltalsmultipli- 
kation resp heltalsdivision med talet två. 

Exempel 3.2 


Betrakta talet 1988. 


1988 shl 1 = 3976 
1988 shl 3 = 63616 


1988 shr 3 = 248 


, dvs 1988*2. 

1920, dvs 1988*2*2*2*2*2. 
Obs! Resultatet blir 
representeras därför 

, dvs 1988 div 2 div 2 


här större än 32767 och 
som ett negativt tal. 

div 2. 


1988 shr 8 = 7 


dvs 1988 delat med 2 åtta gånger. 


Allmänt innebär alltså 

tal shl x detsamma som tal*2 x 

tal shr x detsamma som tal div 2 X 

Skiftinstruktionerna utförs mycket snabbare än motsvarande heltalsoperationer 
och är därför användbara om man skall multiplicera eller dividera heltal med 
potenser av två, dvs med något av talen 2,4,8,16,32... 
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3.1.2 Resultat av aritmetiska operationer. 

Vi har tidigare (sid 11) sett vad vi får som resultattyp vid aritmetiska opera¬ 
tioner. Sammanfattningsvis gäller 

Uttryck med Resultattyp 

flyttal blandat med flyttal 

heltal och bytetal 

enbart heltal heltal (undantag: divisionsoperatorn / ger 

alltid ett flyttal som resultat) 

Allmänt gäller alltså att om en operation utförs på enbart heltal får man ett 
heltal som resultat, med divisionsoperatorn / som enda undantag. 

Varje heltalstyp är begränsat till ett visst talområde. Man måste därför vara 
försiktig så att resultatet vid beräkningar med heltal inte hamnar utanför 
talområdet. Detta kan inträffa vid addition och multiplikation av två heltal. 


Overflow. 

Heltalstypen byte är definierad i intervallet 0..235. Vad kommer då att hända om 
en variabel är deklarerad som byte och man i ett beräkningsuttryck erhåller ett 
värde utanför intervallet 0..255? 

Exempel 3.3 

program Overflow; 

var bytetal : byte; { Talområde 0..255 } 

begin 

bytetal := 255 +5; { Ligger utanför talområdet 0..255 } 

end. 


Om vi kör programmet Overflow kommer variabeln bytetal att tilldelas värdet 260, 
vilket ligger utanför talområde 0..255. Detta medför att exekveringen av prog¬ 
rammet avslutas och ett felmeddelande presenteras på skärmen. 

Error 76: Constant out of range 

Om en variabel är deklarerad som byte, shortint, integer eller word och erhåller 
ett värde utanför datatypens intervall, kommer exekveringen av programmet att 
avslutas, och ett felmeddelande presenteras på skärmen. 

Exempel 3.4 

program 0verflow2; 

var storttal : longint; { Talområde -2147483648..2147483647 } 

begin 

storttal := 2147483647 + 5; { Ligger utanför talområdet } 

Writeln(storttal); 

end. 

Det senare exemplet skiljer sig från det förra genom att storttal är deklarerat 
som longint. Här blir summan 2147483647 + 5 = 2147483652, vilket är större än 
det största värdet för datatypen longint. Programmet ger emellertid inte något 
felmeddelande utan skriver ut talet -2147483644. Vi kan åskådliggöra talrepre¬ 
sentationen av longint som ett hjul. Dvs läggs talet ett till 2147483647 erhål- 
les talet -2147483648. Jämför nedan. 
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De exempel vi har studerat är exempel på sk overflow dvs talområden överskrides. 
Denna typ av overflow är relativt lätt att upptäcka. Värre är då det inträffar i 
mellanresultat i ett större beräkningsuttryck. 

Betrakta t ex heltalstypen integer. Vi kan föreställa oss talområdet i form av 
en ring: Någonstans på ringen finns talet 0 markerat. Markeringen fortsätter 
sedan med alla heltal upp till talet 32767. Nästa tal på ringen är talet -32768. 
Härifrån fortsätter sedan markeringen med alla negativa tal upp till talet 0, 
där vi startade. 



Exempel 3.5 

Antag att vi har 

var tal1,tal2 : integer; 
tal3 : real; 

och sedan gör tilldelningarna 

tall:=20000; 
tal2:=3; 

tal3:=tal1*tal2; 

Det visar sig att tal3 innehåller talet -5536 ! Visserligen blir 20000*3=60000, 
men tal3 är ju deklarerat som flyttal och borde då kunna ta hand om resultatet 
trots att det är större än 32767. Vad man i detta resonemang inte tänker på är 
att uttrycket tal1*tal2 först skall beräknas. Detta uttryck ger enligt reglerna 
ovan ett heltal som resultat. Först när resultatet är beräknat lagras det i 
variabeln tal3. 

Vi kan undgå den här effekten genom att modifiera beräkningsuttrycket: 
tal3:=1.0*tal1*tal2; 

Enligt reglerna ovan kommer denna beräkning att ge ett flyttal som resultat, ef¬ 
tersom det i uttrycket ingår ett flyttal, konstanten 1.0 . 

Exempel 3.6 

Antag att tall och tal2 har samma värden som ovan och att vi försöker beräkna 
tal3:=tal1*tal2 div 50; 
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Detta borde ge 20000*3/50=1200 som resultat och som ligger i integerområdet. Det 
visar sig att tal3 innehåller värdet -110 ! Varför? 

Jo, först beräknas produkten tal1*tal2 och detta ger resultatet -5536 enligt 
ovan. Därefter beräknas -5536 div 50 som ger resultatet -110. 

3.2 Datatypen boolean. 

Pascal är ett språk som är ovanligt rikt på datatyper. Man kan tom definiera 
egna datatyper. Du har tidigare träffat på några typer som t ex integer, real. 
Det finns ytterligare datatyper som är standard i Pascal. En sådan är datatypen 
boolean, som utgöres av de två logiska värdena sant och falskt. 

Till datatypen boolean hör två standardkonstanter: true och false. 

Konstanten true är alltid sann och konstanten false är alltid falsk. 

Man kan nu deklarera egna booleska (logiska) variabler: 

var klart, mera : boolean; 


och tilldela dessa olika värden: 


klart:=true; 
mera:rfalse; 


3.3 Logiska uttryck. 

Man kallar uttryck som är sammansatta av relationsoperatorer eller logiska ope¬ 
ratorer för logiska uttryck. 

3.3.1 Relationsoperatorer. 

Relationsoperatorerna används då man vill jämföra två storheter med varandra. 
Vilka de är framgår av följande tabell: 


Operator 



Betydelse 
mindre än 

mindre än eller lika med 
större än 

större än eller lika med 
lika med 

ej lika med, skilt från 


Teckenordningen för de operatorer som skrivs med två tecken är väsentlig. 

Uttryck som innehåller dessa operatorer har värden som är antingen sanna eller 
falska. T ex 

2 < 3 (sant) 

2 <=3 (sant) 

2=3 (falskt) 


De storheter, variabler, konstanter etc, som jämförs med varandra måste vara av 
en datatyp som kan ordnas. Så är fallet med de skalära datatyperna integer (och 
de i Turbo Pascal andra heltalstyperna), real, boolean, char. I Turbo Pascal kan 
även stränguttryck jämföras med varandra. 

(Skalära datatyper och strängar behandlas i ett senare kapitel.) 
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3.3.2 Logiska operatorer. 


På booleska variabler och i logiska uttryck kan man använda de logiska operato¬ 
rerna and, or och not. Jämför svenskans och - eller - inte. 

mera and klart = sant om båda variablerna är sanna, annars falskt. 

mera or klart = falskt om båda variablerna är falska, annars 

sant. 

not klart = sant om klart är falsk, falskt om klart är sann. 


I Turbo Pascal förekommer även den logiska operatorn xor, som enklast definieras 
med hjälp av sanningstabellen nedan, där vi även har inkluderat and och or. 


a 

b 

a and b 

a or b 

a xor 

false 

false 

false 

false 

false 

false 

true 

false 

true 

true 

true 

false 

false 

true 

true 

true 

true 

true 

true 

false 


I tabellen ser vi att villkoret (a and b) har värdet true endast då både a och b 
är sanna. Villkoret (a or b) har värdet true om en av a eller b är sann. 


3.4 Prioritetsordning för operatorer. 

När man använder logiska operatorer och då i synnerhet tillsammans med relation¬ 
soperatorerna och de aritmetiska operatorerna, måste man ha klart för sig i vil¬ 
ken ordning uttrycken utvärderas. 

not 

*, /, div, mod, shl, shr, and 
+, -, or, xor 
= , O, >, <, >=, <= 


Vill man prioritera i en annan ordning sätter man parenteser precis som i mate¬ 
matiken. Parenteserna utvärderas alltid först. 



Exempel 3.7 

Antag att följande deklarationer och tilldelningar gjorts, 
var x,y: integer; 


x: =23; 

y: =10; 


Logiskt uttryck 
(x<y) or (y>=0) 

(x-10 > y) and (y <> 0) 
not (x<y) 


Logiskt värde 

sant 

sant 

sant 
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Observera att pga prioritetsordningen är parenteserna i exemplen ovan helt nöd¬ 
vändiga. Det går alltså ej att skriva det andra exemplet som 

x-10 > y and y <> 0 

Eftersom and har högst prioritet skulle detta innebära att uttrycket 

y and y 

beräknas först. Detta uttryck ger i Turbo Pascal ett heltal som resultat (är 
odefinierat i standard Pascal) som vi skall se nedan. 

Då vi fortsätter med beräkningen av uttrycket har vi alltså att beräkna uttryck¬ 
et 

x-10 > heltal O 0 
som saknar mening. 

Kompileringsdirektivet {$B+} 

I Turbo Pascal version 4.0 har man med kompileringsdirektivet B+/- möjlighet att 
bestämma hur logiska uttryck skall utvärderas. Detta direktiv kan ställas från 
huvudmenyn under Compiler/Options eller anges direkt i programmet. 

Om man anger {$B+} kommer garanterat varje villkor i det logiska uttrycket att 
utvärderas. 

Anger man {$B—} kommer utvärderingen att avslutas så snart ett av villkoren är 
falskt (det sammansatta logiska uttrycket kortsluts). 

Vi rekommenderar den förra inställningen under programutveckling. 


3.5 Logiska operatorer med aritmetiska operander. 

I Turbo Pascal kan man använda de logiska operatorerna som om de vore aritmeti¬ 
ska operatorer med heltal som operander. Man kan t ex beräkna 

2 and 3 
5 or 7 
not 2 

Detta är inte tillåtna uttryck i standard Pascal. 

Då uttrycken ovan skall beräknas sker utvärderingen på bitnivå, bit för bit. En 
etta i en viss bitposition motsvarar fallet true, medan en nolla i samma posi¬ 
tion svarar mot fallet false. 

Betrakta talen ovan som bytetal. Vi har då 

Decimalform Binärform 


2 

0000 

0010 

3 

0000 

0011 

2 and 3 = 2 

0000 

0010 

5 

0000 

0101 

7 

0000 

0111 

5 or 7 = 5 

0000 

0111 

2 

0000 

0010 

not 2 = 253 

1111 

1101 
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Dessa beräkningar på bitnivå har en mening endast om man knyter olika egenskaper 
till de olika bitpositionerna. Man kan t ex ta reda på om ett heltal x är udda 
genom att beräkna 

x and 1 =1 om x är udda 

0 om x är jämnt. 


Utmärkande för de logiska-aritmetiska operationerna ovan är att de är snabba men 
oöverskådliga. I Pascal föredrar vi andra och tydligare sätt. Vi tänker då fram¬ 
för allt på mängdbegreppet som behandlas senare. 


3.6 Tilldelning av logiska variabler. 

De logiska variablerna kan tilldelas värden direkt med hjälp av konstanterna 
true eller false. T ex 


mera:=true; 


Man kan också att lagra värdet av ett uttryck. T ex 
mera: = (i<100); 

I sådana fall bör man sätta en parentes kring själva uttrycket, så att satsen 
blir mera lättläst. Värdet av parentesen utvärderas vid exekveringen av satsen 
och resultatet lagras i variabeln mera. 

Tilldelningar av det här slaget bör man emellertid undvika i synnerhet om sam¬ 
mansatta uttryck skall utvärderas. Man vinner i klarhet, om tilldelningen i 
stället görs med if-satsen, som vi behandlar i nästa avsnitt. 


Exempel 3.8 

program BitNiva; 
begin 

Writeln(1 and 1); 
Writeln(2 and 1); 

end. 


Exempel 3.9 

program LogiskOp; 
begin 

Writeln( (25<10) or (10>=0) ) 
WritelnC (10>5) and (10>20) ) 

end. 


Första Writeln-satsen ger utskriften 
1 ty 1 är udda 

och den andra ger utskriften 
0 ty 2 är jämnt 

Första Writeln-satsen ger utskriften 
TRUE 

och den andra ger utskriften 
FALSE 
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4 Styrande satser och matematiska funktioner 

Vi skall i detta kapitel presentera de kommandon i Pascal, med vars hjälp man 
kan styra programexekveringen: if-satsen, for-satsen, while-satsen, repeat-sat- 
sen och case-satsen. I slutet av kapitlet behandlar vi ett antal matematiska 
funktioner. 

STYRANDE SATSER. 

De program som vi hitintills skrivit har det gemensamt att datorn har exekverat 
första programraden, därefter andra programraden osv tills den har stött på 
ordet end. 

begin 


program rader 


4.1 IE-SATSEN. 
if-then konstruktionen. 

Om vi vill att datorn skall exekvera en programrad eller kanske flera programra¬ 
der endast då ett speciellt villkor är uppfyllt, kan vi styra detta med hjälp av 
if-satser. Med hjälp av if-satsen styr vi in på olika alternativ. 

Exempel 4.1 

Antag att vi vill testa om en variabel har värdet fem och i så fall skall prog¬ 
rammet ge utskriften "Talet är fem". Om variabeln ej har värdet fem sker ingen 
utskrift och programmet fortsätter att exekveras. 


Är talet fem? 

/ \ 

JA NEJ 

/ \ 


Skriv Gå vidare utan att 

Talet är fem skriva ut 

Talet är fem 


Om variabeln tal har värdet fem väljer 
datorn vägen JA (SANT). För andra värden 
väljer datorn vägen NEJ (FALSKT). 


I Pascal kan ett sådant test ha följande utseende 


if tal = 5 then 

Write( 'Talet är fem.'); 


Utskriften " Talet är fem " skrivs endast ut 
om villkoret tal = 5 är uppfyllt dvs sant. 
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I sin helhet kan ett program som skriver ut om ett tal har värdet fem se ut på 
följande sätt 

program TaletFem; 

var tal : integer; { tal mellan -32768..32767 och tar två byte av minnet } 

begin 

Write('Ange ett tal: '); 

Readln(tal) ; 

if tal = 3 then 

Writeln( 'Talet är fem.'); {Denna utskrift sker endast om tal = 5} 

Writeln('Programmet avslutat.'); {Denna utskrift sker alltid} 

end. 

Exempel på två körningar. 

Ange ett tal: 5 Ange ett tal: 7 

Talet är fem. Programmet avslutat. 

Programmet avslutat. 


Exempel 4.2 

if tall > tal2 then Utskriften " tall är störst " skrivs endast 

Write('tall är störst'); ut om villkoret tall > tal2 är uppfyllt dvs 
sant. 

if klart then I Utskriften " PROGRAMMET AVSLUTAT " skrivs 

Write('PROGRAMMET AVSLUTAT '); |endast ut om klart har värdet true. 

if (tal>5) and (tal<10) then lUtskriften 

Write('Tal mellan 3 och 10.'); "Tal mellan 5 och 10." skrivs endast ut om 
|båda villkoren är sanna. 

if not klart then lUtskriften " PROGRAMMET AVSLUTAT " skrivs 

Write('PROGRAMMET AVSLUTAT '); endast ut om klart har värdet false. 


Som vi sett av exempel 4.1 och 4.2 är det satsen efter then som exekveras om 
villkoret mellan if och then blir true (sant). 

Exempel 4.3 

Vi skall nu presentera ett program som består av två if-satser: 
if klart then 

Writeln('Variabeln klart har värdet true. '); 

Utskriften " Variabeln klart har värdet true." skrivs endast ut om variabeln 
klart har värdet true (sant). 

if not klart then 

Writeln('Variabeln klart har värdet false.'); 

Utskriften " Variabeln klart har värdet false." skrivs endast ut om variabeln 
klart har värdet false (falskt). 
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program Test; 

var klart : boolean; { true eller false } 

begin 

klart := true; 
if klart then 

Writeln('Variabeln klart har värdet true. '); 
if not klart then 

Writeln('Variabeln klart har värdet false.'); 

end. 


Programmet kommer att ge utskriften " Variabeln klart har värdet true.". Om vi 
däremot ändrar raden klart := true; till klart := false; kommer programmet att 
ge utskriften " Variabeln klart har värdet false.". 

Allmän deklaration av en if-sats. 

En villkorssats kan skrivas: 

if <logiskt uttryck> then 
<sats>; 

Om det logiska uttrycket är sant utförs satsen efter then. 

Om det logiska uttrycket är falskt utförs inte satsen efter then. 


Flera satser underordnas then. 

Om flera satser skall utföras efter then måste dessa omslutas av begin-end. 
Exempel 4.4 

Antag, att vi vill skriva ett program som ger möjlighet att välja mellan två al¬ 
ternativ som ger utskrifterna: 

För Sverige i tiden. 

eller 

************** 

*TURBO-PASCAL* 
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För att styra dessa utskrifter använder vi två if-satser. 

program AngeTal; 
uses Crt; 

var tal : byte; { tal mellan 0..255 ; tar en byte av minnet } 

begin 

ClrScr; 

Writeln('Om du anger talet 1 skriver jag ett valspråk.'); 

Writeln( 'Om du anger talet 2 skriver jag TURBO-PASCAL. '); 

Writeln( 'Om du anger något annat heltal slutar programmet bums.'); 

Write('Ange ett heltal: '); 

Readln(tal); 

if tal=1 then begin 

ClrScr; 

GotoXY(25,10); 

Writeln('För Sverige i tiden.'); 

end; 

if tal=2 then begin 

ClrScr; 

Writeln( '**************'); 

Writeln( '*TURB0-PASCAL* '); 

p 0 p ^ ' "X - •‘k -K - ' • 

end; 

end. 

Programmet AngeTal kommer att ge följande utskrifter: 

Om du anger talet 1 skriver jag ett valspråk. 

Om du anger talet 2 skriver jag TURBO-PASCAL. 

Om du anger något annat heltal slutar programmet bums. 

Ange ett heltal: 

Det värde som tal tilldelas i Readln-satsen bestämmer vad som kommer att skrivas 
ut. Om tal tilldelas ett värde som är skilt från ett eller två kommer inget av 
villkoren i de två if-satserna att bli sant och ingen utskrift kommer att ske. 
Vidare är de två if-satsernas villkor sådana att båda inte kan bli sanna samti¬ 
digt. 

If-then-else konstruktionen. 

Vi bygger nu på med konstruktionen if-then-else. Detta innebär att, om villkoret 
är sant utförs satsen efter then i annat fall utförs satsen efter else. 

Exempel 4.5 

Antag att vi vill testa om en variabel har värdet tre och att programmet i så 
fall skall ge utskriften "Talet har värdet tre.". Om variabeln ej har värdet tre 
skall utskrift "Talet har inte värdet tre." skrivas ut. I Pascal kan en sådant 
test ha följande utseende: 

if talet = 3 then 

Writeln( 'Talet har värdet tre. ') 

else { Inget semikolon före else } 

Writeln('Talet har inte värdet tre.'); 


Om talet har värdet tre skrivs följande ut: Talet har värdet tre. 

För alla andra värden på talet skrivs följande ut: Talet har inte värdet tre. 
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OBS! Vad händer om vi tar bort else i exempel 4.5 (vi lägger också till ett ;) 
if talet = 3 then 

Writeln('lalet har värdet tre.'); { Tillhör if-satsen } 

Writeln('Talet har inte värdet tre.'); { Tillhör inte if-satsen } 

Om talet har värdet tre skrivs följande ut: Talet har värdet tre. 

Talet har inte värdet tre. 


Detta var ett exempel på en mindre lyckad utskrift. 

För alla andra värden på talet skrivs följande ut: Talet har inte värdet tre. 

Vi ser här tydligt effekten av if-then-else-satsen. Antingen skrivs satsen ut 
efter then eller så skrivs satsen ut efter else. 

Exempel 4.6 

Programmet nedan läser in två tal och avgör vilket av talen som är störst. 
Därefter skrivs talen ut i storleksordning. 

program Storlek; 
uses Crt; 

var tall, tal2 :integer; 
begin 
ClrScr; 

Write( 'Skriv ett heltal '); 

Readln(tall); 

Write('Skriv ett heltal till '); 

Readln(tal2); 

Writeln; 

Write( 'Utskrift i storleksordning 
if tall > tal2 then 

Writeln(tal2 ,',',tal1) 

else 

Writeln(tall, ', ' ,tal2); 

end. 

Programmet Storlek läser in två tal, (tall och tal2). If-satsen testar om tall 
är större än tal2, (tall > tal2). Om detta villkor är sant skall först tal2 
skrivas ut och därefter tall. Detta sker med satsen Writeln(tal2,',',tal1);. Om 
inte villkoret blir sant utförs satsen efter else dvs tall skrivs ut före tal2. 

Exempel på körning: 

Skriv ett heltal 10 
Skriv ett heltal till 3 

Utskrift i storleksordning: 3,10 


'); 


{Inget semikolon före else } 
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Allmän deklaration av if-then-else-satsen. 

if <logiskt uttryck> then 
<sats> 

else Obs! Inget semikolon (;) före else. 

<sats>; 


- Om det logiska uttrycket är sant utförs satsen efter then men ej satsen 
efter else. 

- Om det logiska uttrycket är falskt utföres bara satsen efter else. 


Flera satser kan underordnas then resp else. 

Om flera satser skall utföras efter then resp else måste dessa omslutas av 

begin-end. 

Exempel 4.7 

I programexemplet 4.4 fick du välja på två utskrifter genom att ange talet ett 
eller två. Om du angav något annat tal än ett eller två avslutades programmet 
utan att ge någon utskrift. Om du vill att den som kör programmet skall välja på 
att få antingen valspråket eller TURBO-PASCAL utskrivet får du lösa detta med 
hjälp av if-then-else satsen. Programmet AngeTal2 är gjort så att om du inte 
väljer valspråket får du IURBO-PASCAL utskrivet. 

program AngeTal2; 
uses Crt; 
var tal : byte; 
begin 

ClrScr; 

Writeln('Om du anger talet 1 skriver jag ett valspråk.'); 

Writeln('Annars skriver jag ut TIJRBO-PASCAL.'); 

Write('Ange ett heltal: '); 

Readln(tal); 

if tal=1 then begin 

ClrScr; 

GotoXY(25,10); { Om tal=1 skrivs valspråket ut. } 

Writeln('För Sverige i tiden.'); 

end 

else begin 

ClrScr; { För alla andra värden på tal } 

Writeln( '**************'); { skrivs TURBO-PASCAL ut. } 

Writeln( '*TURBO-PASCAL* '); 

Writeln( '**************'); 

end; 

end. 
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Allmän deklaration då flera satser underordnas if-then-else-satsen. 

if <logiskt uttryck> then begin 
<sats1>; 

<sats2>; 

end { Inget semikolon före else } 

else begin 
<sats3>; 

<sats4>; 

end; { Här skall det vara semikolon } 

Om det logiska uttrycket är sant utförs bara satsi och sats2. 

Om det är falskt utförs bara sats3 och sats4. 


Exempel 4.8 

I detta exempel visas på möjligheten att använda if-then med hjälp av en boolesk 
variabel. Endast om den booleska variabeln i if-satsen är sann, utförs satsen 
efter then. 

if liten then 

Writeln('Variabeln tal har ett värde mindre än tio.'); 

Texten "Variabeln tal har ett värde mindre än tio." skrivs endast ut om varia¬ 
beln liten har värdet true. 


program LogikVariabel; 
var tal : integer; 
liten : boolean; 

begin 

liten := false; { Variabeln liten initieras med värdet false} 

Write('Ange ett heltal: '); 

Readln(tal); 

if tal < 10 then { Om tal < 10 kommer liten att erhålla värdet true} 
liten := true; 

if liten then { Om liten har värdet true utförs satsen efter then } 
Writeln( 'Variabeln tal har ett värde mindre än tio. ') 
else { Om liten har värdet false utförs satsen efter else } 

Writeln('Variabeln tal har ett värde lika med eller större än tio.'); 
Writeln( 'Det exakta värdet på tal är ',tal); 
end. 


Exempel på körningar. 

Ange ett heltal: 3 

Variabeln tal har ett värde mindre än tio. 
Det exakta värdet på tal är 5 


Ange ett heltal: 34 

Variabeln tal har ett värde lika med eller större än tio. 
Det exakta värdet på tal är 34 
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4.2 FOR-SATSEN. 


En av de stora fördelarna med en dator, är att den kan göra samma saker gång på 
gång, utan att tröttna. För att åstadkomma att datorn gör t ex samma beräkning 
eller utskrift flera gånger, användes olika styrsatser. En av dessa styrsatser 
är for-satsen. 

Exempel 4.9 

I detta exempel fås datorn att skriva ut texten "fest på for-sats" fem gånger på 
skärmen. Vi använder oss då av for-satsen. Först måste vi ha en räknare som hål¬ 
ler reda på hur många gånger "Test på for-sats" skrivs ut. Låt oss kalla denna 
räknare för antal. Antal deklareras som en heltalsvariabel av typen byte, defi¬ 
nierad i intervallet 0..255. Utskrift på skärmen sker med en Writeln-sats. 

program Test; Programmet Test skriver ut texten: 

var antal : byte; 

begin Test på for-sats 

for antal := 1 to 5 do Test på for-sats 

Writeln( 'Test på for-sats'); Test på for-sats 

end. Test på for-sats 

Test på for-sats 

Räknaren antal kommer att anta värdena ett, två, tre, fyra och fem. För varje 
gång antal antar ett nytt värde kommer satsen efter do att utföras, i vårt fall 
en utskrift, Writeln( 'Test på for-sats'). 

Allmän deklaration av for-sats. 

Vi kan allmänt beskriva en for-sats på följande sätt: 

for <styrvariabel> := <startvärde> to <slutvärde> do 
<sats>; 

En styrvariabel är en slags varvräknare. Den ökas med 1 varje gång och 
måste vara av en enkel datatyp, dock ej real. 

- Startvärdet och slutvärdet kan vara beräkningsuttryck. De beräknade värde¬ 
na måste tillhöra samma datatyp som styrvariabeln. 

- Man får använda styrvariabelns värde, men ej ändra det i satsen efter do. 


Exempel 4.10 

program Test2; 

var antal : byte; 

begin 

for antal := 1 to 3 do 

Writeln('Detta är utskrift nr ',antal); 

end. 

Programmet Test2 skriver inte bara ut text utan även det aktuella värdet på 
styrvariabeln, antal. 

Programmet ger följande utskrift: 

Detta är utskrift nr 1 
Detta är utskrift nr 2 
Detta är utskrift nr 3 
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Flera satser underordnas for-satsen. 


Om flera satser skall utföras efter do måste dessa omslutas av begin-end. 

Exempel 4.11 

program Test3; 

var antal, max : integer; 

begin 

Write('Hur många utskrifter vill du ha ? '); 

Readln(max); 

for antal := 1 to max do begin 

Writeln('Detta är utskrift nr antal); 

Writeln('Eftersom jag omsluter satserna efter do med begin-end '); 
Writeln('skrivs även dessa rader ut.'); 

end; 

end. 

Programmet Test3 ger först utskriften: 

Hur många utskrifter vill du ha: 

Antag, att frågan besvaras med två. I Readln-satsen kommer variabeln max då att 
tilldelas värdet två. Därefter skrivs följande ut: 

Detta är utskrift nr 1 

Eftersom jag omsluter satserna efter do med begin-end 
skrivs även dessa rader ut. 

Detta är utskrift nr 2 

Eftersom jag omsluter satserna efter do med begin-end 
skrivs även dessa rader ut. 


Exempel 4.12 
program Raknatlpp; 

var raknare : boolean; { Antar värdet Ealse eller True } 

begin 

for raknare := true to true do 

Writeln('Vad sägs om detta?'); { Skrivs ut en gång } 

for raknare := false to true do 

Writeln('Detta är också fantastiskt!'); { Skrivs ut två gånger } 

end. 

Styrvariabel kan också vara av typen boolean. Lägg märke till att texten " Vad 
sägs om detta?" skrivs ut en gång. 


Allmän deklaration då flera satser underordnas av for-sats. 

for <styrvariabel> := <startvärde> to <slutvärde> do begin 
<sats>; 


<sats>; 

end; 

Samtliga satser mellan begin-end kommer att utföras. 
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En for-sats utförs enligt följande steg: 


Startvärde 

- 

Utför satsen efter do 
(eller satserna mellan begin - end). 


Uppräkning av styrvariabeln 

FALSKT ^ 

Styrvariabeln > slutvärdet 


SANT 

t 

fortsätter i programmet 


Downto. 


Om man vill ha en varvräknare som räknar nedåt byter man to mot downto. 
Exempel 4.13 


program RaknaBaklanges; 
const sluta = 3; 
var börja : integer; 

begin 

for börja := 10 downto sluta do 

Writeln('Variabeln börja har värdet börja); 

end. 


Exempel på körning 

Variabeln börja har värdet 10 
Variabeln börja har värdet 9 
Variabeln börja har värdet 8 
Variabeln börja har värdet 7 
Variabeln börja har värdet 6 
Variabeln börja har värdet 


Styrvariabeln kan vara av datatypen 
heltalstyp, boolean eller char. 

Givetvis måste startvärde och slutvärde 
vara av samma datatyp. 
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Datatypen char. 


Variabler av typen char kan lagra ett tecken. En tilldelning av ett tecken till 
en sådan variabel kan ske på följande sätt: 


var tecken : char; 


Variabeln tecken är deklarerad att lagra ett tecken. 


tecken := 'J'; 


Bokstaven J lagras i variabeln tecken. 


Readln(tecken); 


En bokstav läses in från tangentbordet. Om flera 
tecken skrivs på tangentbordet är det bara det förs¬ 
ta tecknet som lagras i variabeln tecken. 
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Exempel 4.14 


program DelAvAlfabetet; 
uses Crt; 

var bokstav : char; 
begin 
ClrScr; 

Writeln( 'Utskrift av A..Z. 
for bokstav := 'A' to 'Z' do 

Write(bokstav, ); { Skriver ut bokstäverna A..Z } 

Writeln; 

Writeln('Utskrift av Z..A. '); 
for bokstav := 'Z' downto 'A' do 

Write(bokstav, ' ); { Skriver ut bokstäverna Z..A } 

end. 

Exempel på körning 

Utskrift av A..Z. 

ABCDEFGHIJKLMNOPQRSTUVWXYZ 
Utskrift av Z..A. 

ZYXWVUTSRQPONMLKJIHGFEDCBA 

Jämför exempel 4.18 

Allmän deklaration. 

for <styrvariabel> := <startvärde> downto <slutvärde> do 
<sats>; 

4.3 WHILE-DO och REPEAT-UNTIL. 

Ibland vet man inte på förhand hur många gånger en repetition skall utföras. Då 
passar inte for-satsen utan i stället kan while-satsen eller repeat-satsen an¬ 
vändas . 

När man använder dessa satser riskerar man emellertid att hamna i evighetssling- 
or, som man måste kunna bryta. 

En evighetsloop bryts med CTRL-C. I Turbo Pascal ver 3.0 fordras att kompile- 
ringsdirektivet {$U+} är angett i programmet. 

4.3.1 WHILE-SATSEN. 

En while-sats kan ha följande utseende: 

while <logiskt uttryck> do 
<sats>; 


Om det logiska uttrycket är sant utförs satsen efter do. Därefter testas det 
logiska uttrycket återigen. Om det är sant utförs satsen efter do en gång till. 
Det logiska uttrycket testas osv. 

Om det logiska uttrycket aldrig blir falskt hamnar programmet i en evighetsloop. 
Om det logiska uttrycket är falskt utförs inte satsen efter do. 
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Exempel 4.15 

(Exempel på en evighetsloop). 


a := 5; 

while a = 5 do 

WritelnC 'a har värdet fem.'); 


Eftersom a := 5 kommer värdet av det logiska 
uttrycket att bli sant. Detta medför att 
Writeln-satsen efter do kommer att utföras. 
Därefter beräknas det logiska uttrycket, 
som återigen är sant. Vi är fast i en evig¬ 
hetsloop. 

CTRL-C bryter loopen. 


Om vi vill ha en utskrift enligt exemplet ovan använder vi givetvis if-satsen. 

if a = 5 then 

Writeln( 'a har värdet fem.'); 

Flera satser underordnas while-satsen. 

För att använda 

while <logiskt uttryck> do 
<sats>; 

dvs endast en sats underordnad while, måste denna sats på något sätt åstadkomm- 
a så att det logiska uttrycket blir falskt. I annat fall kommer programmet att 
hamna i en evighetsloop. Det naturliga är att flera satser skall underordnas en 
while-sats. Om flera satser skall utföras efter do måste dessa omslutas av 
begin-end. 

while <logiskt uttryck> do begin 
<sats>; 

<sats>; 

end; 


Exempel 4.16 

program Raknare; 
var tal : integer; 

begin 

tal := 1; { Tal får värdet 1 för att senare räknas upp till 6 } 

WritelnC'Uppräkning av talen ett tom fem. '); 

while tal < 6 do begin { tal har värdet mindre än sex } 

Writeln(tal); 

tal := tal + 1; { Här räknas tal upp en enhet } 

end; 

WritelnC 'PROGRAMMET AVSLUTAT. '); 

end. 

Eftersom variabeln tal har värdet ett första gången kommer villkoret tal < 6 att 
bli sant. Detta innebär att satserna mellan begin-end utförs: 

Writeln(tal); utförs dvs värdet av variabeln tal skrivs ut på skärmen. Satsen 
tal:=tal+1; medför att variabeln tal räknas upp en enhet. 

Därefter testas villkoret tal < 6 och om detta blir sant kommer satserna mellan 
begin-end att utföras igen. När tal erhåller värdet sex kommer villkoret att få 
värdet falskt och satsen WritelnC'PROGRAMMET AVSLUTAT. '); kommer att utföras. 
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Programmet Raknare kommer att ge följande utskrifter på skärmen: 

Uppräkning av talen ett tom fem. 

1 

2 

3 

4 

5 

PROGRAMMET AVSLUTAT. 


Räknarna Inc och Dec. 

I exempel 4.16 ville vi att variabeln tal skulle räknas upp med en enhet. För 
att räkna upp värdet på tal använde vi oss av satsen "tal := tal + 1". 

Om vi skulle vilja räkna upp tal med två enheter per gång använder vi givetvis 
satsen "tal := tal + 2". Eftersom det ofta förekommer uppräkning och nedräkning 
av variablers värden, har man i Turbo Pascal ver 4.0 infört procedurer som löser 


Dessa procedurer är Inc, (eng Increment, ökning) och Dec (eng Decrement, avta). 

Inc uppräkning. 

tal := tal + 1; motsvaras av Inc(tal); 

tal := tal + 2; motsvaras av Inc(tal,2); 

tal := tal + 3; motsvaras av Inc(tal,3); 

tal := tal + n; motsvaras av Inc(tal,n); Obs! n måste vara av heltalstyp. 

Dec nedräkning. 

tal := tal - 1; motsvaras av Dec(tal); 

tal := tal - 2; motsvaras av Dec(tal,2); 

tal := tal - 3; motsvaras av Dec(tal,3); 

tal := tal - n; motsvaras av Dec(tal,n); Obs! n måste vara av heltalstyp. 


Exempel 4.17 

program RaknaUppNer; 
var tal : integer; 
begin 

tal := 1; 

while tal < 6 do begin 

Write(tal:4); 

Inc(tal); { Sista gången får tal värdet sex } 

end; 

while tal > 0 do begin { Första gången har tal värdet sex } 
Write(tal:4); 

Dec(tal); { Sista gången får tal värdet noll } 

end; 

end. 

Programmet ger vid körning utskriften 

12345634321 
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Exempel 4.18 


program DelAvAlfabetet2; 
uses Crt; 

var bokstav : char; 
begin 
ClrScr; 

Writeln('Utskrift av A..Z,'); 

bokstav := 'A'; {A har ASCII värdet 65 } 

while bokstav <= 'Z ' do begin { ASCII värdet för Z är 90 } 
Write(bokstav '); 

Inc(bokstav); { Räknar upp ASCII värdet med en enhet } 

end; 

Writeln; 

Writeln('Utskrift av A..Z, varannan bokstav.'); 
bokstav := 'A'; 
while bokstav <= 'Z' do begin 
Write(bokstav , ' '); 

Inc(bokstav,2); { Räknar upp ASCII värdet med två enheter } 

end; 

end. 


Ger vid körning, jämför exempel 4.14. 

Utskrift av A..Z. 

ABCDEFGHIJKLMNOPQRSTUVWXYZ 
Utskrift av A..Z, varannan bokstav. 

ACEGIKMOQSUWY 

ASCII-värden. 

I datorn representeras tecken och bokstäver av sifferkoder. Dessa återfinns i 
tabeller. Den vanligaste är ASCII-tabellen. Se appendix C eller använd program¬ 
met KeyBoard på sidan 65. ASCII är en förkortning av American Standard Code for 
Information Interchange, uttalas aski. 

Exempel 4.19 

program Wtest; 
uses Crt; 

var tal : integer; 
begin 
ClrScr; 

Write('Ange ett heltal (Programmet avslutas om du anger talet 0): '); 
Readln(tal); 

while tal <> 0 do begin { tal skilt från noll } 

ClrScr; 

Write('Eör att inte denna loop skall fortsätta i all evighet '); 

Writeln('måste du ange talet 0 (noll)'); 

Readln(tal); 

end; 

Writeln('Slutar p g a att tal har värdet 0 (noll).'); 

end. 


Programmet läser in ett värde till variabeln tal. Därefter testas villkoret i 
while-satsen (tal <> 0). Om villkoret är sant utförs satserna mellan begin och 
end;. Om villkoret är falskt "hoppar datorn över" satserna mellan begin och end; 
och programmet avslutas. För att komma ur while-satsen måste tal tilldelas vär¬ 
det 0, vilket innebär att tal <> 0 blir falskt. 
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En while-sats utförs enligt följande steg: 


* Beräknar det logiska uttrycket 

I 

SANT 


Utför satsen efter do 
(Satserna mellan begin-end) 


FALSKT_. 


Obs! 

Endast om det logiska ut¬ 
trycket är sant utförs 
satsen efter do (satserna 
mellan begin-end). 


fortsätter i programmet 


Exempel 4.20 

Programmet nedan läser in heltal och summerar dessa. Summeringen avslutas då 
talet 0 (noll) läses in. 

program Summering; 
uses Crt; 

var sum, tal : integer; 
begin 
ClrScr; 

Writeln( 'Summering av heltal.'); 

Writeln; 

Writeln('Inmatningen avslutas om talet 0 matas in'); 

Write( 'Ange ett heltal '); 

Readln(tal); 

sum := 0; { Sum måste nollställas 1:a gången } 

while tal <> 0 do begin { den används i beräkningen sum=sum+tal } 
sum := sum + tal; 

Write( 'Ange ett heltal '); 

Readln(tal); 

end; 

Writeln('Summan av talen blir ',sum ); 

end. 


Om sum inte nollställs (sum := 0) första gången kan den innehålla skräptecken. 
Genom att nollställa sum är vi absolut säkra på att sum har värdet noll från 
början. 


4.3.2 REPEAT-UNTIL. 

En repeat-until sats skiljer sig från while-satsen genom att satsen/satserna 
mellan repeat-until utförs en gång, därefter kommer ett logiskt uttryck som 
beräknas. Om det logiska uttrycket blir sant utförs satsen/satserna mellan 
repeat-until en gång till osv. 
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Exempel 4.21 


program AngeTall; 
uses Crt; 

var tal : integer; 

begin 

repeat { Satserna behöver ej omslutas av begin-end } 

ClrScr; 

Writeln('Detta program avslutas om du anger talet 123.'); 
Write( 'Ange en siffra: '); 

Readln(tal); 
until tal=123; 
end. 


Programmet börjar med att tömma skärmen och därefter skrivs de två Writelnsats- 
erna ut: 

Detta program avslutas om du anger talet 123. 

Ange en siffra: 

Programmet kommer att upprepa dessa två utskrifter tills det att tal får värdet 
123, dvs tills villkoret efter until blir sant. De satser som tillhör repeat-un- 
til är de satser som står mellan repeat-until. Satserna behöver ej omslutas av 
begin-end, även om detta också går bra. 

Exempel 4.22 

program Summering2; 
uses Crt; 

var tal, sum : integer; 

begin 

ClrScr; 

Writeln('Alla tal du anger summeras.'); 

Writeln('Programmet avslutas om du anger talet 0'); 

sum := 0; { Sum måste nollställas 1:a gången } 

repeat { den används i beräkningen sum=sum+tal } 

Write('Ange ett heltal '); 

Readln(tal); 
sum := sum + tal; 
until tal = 0; 

Writeln('Summan blir ',sum :8); 

end. 

Detta program är en annan lösning till samma problem som i exempel 4.20. 

Delay, KeyPressed och Exit. 

Då det gäller att bryta t ex en evighetsloop finns några väldigt användbara 
rutiner som är speciella för Turbo Pascal, KeyPressed och Exit. Vi passar samti¬ 
digt på att presentera en fördröjningsrutin, Delay. 

Delay 

Om en fördröjning i ett program önskas, används proceduren Delay. Delay ger en 
ungefärlig fördröjning i millisekunder räknat. Delay finns i Pascalenheten Crt. 

Delay(IO) ger 10 ms fördröjning. 

Delay(75) ger 75 ms fördröjning. 

Delay(2500) ger 2500 ms fördröjning. 
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KeyPressed 


KeyPressed är en funktion som returnerar värdet true då en tangent trycks ner, 
dock ej Shift, Alt, Num Lock osv. 

I exempel 4.23 skrivs texten ' Slutar när du trycker på en tangent!' ut på bild¬ 
skärmen med 1000 millisekunders fördröjning. Utskriften pågår tills det att 
KeyPressed returnerar värdet true, dvs man trycker t ex på tangenten A. 
Funktionen KeyPressed finns i Pascalenheten Crt, gäller ej ver 3.0. 

Exempel 4.23 

program Tangentlryck; 
uses Crt; 
begin 
repeat 

Writeln('Slutar när du trycker på en tangent!'); 

Delay(IOOO); 
until KeyPressed; 

end. 

Turbo Pascal ver 3.0 fordrar kompileringsdirektivet {$C- ,U-} för att KeyPressed 
ska fungera riktigt. U- är standard och C- måste stå före programmets deklara- 
tionsdel. Turbo Pascal ver 4.0 har inga sådana restriktioner. 

Exit 

0m datorn vid exekvering av ett program stöter på proceduren Exit avslutas exek¬ 
veringen. Lite längre fram i boken kommer vi att se vad som händer om vi använ¬ 
der Exit i procedurer och funktioner som vi själv skapar. 

Exempel 4.24 

program TangentTryck2; 
uses Crt; 
begin 
repeat 

if KeyPressed then 
Exit; 

Writeln('Slutar när du trycker på en tangent!'); 

Delay(1000); 
until False; 
end. 

I exempel 4.24 kommer aldrig villkoret i repeat-until att bli true. Detta inne¬ 
bär att programmet hamnat i en evighetsloop. Men med hjälp av proceduren Exit 
kan vi få datorn att avsluta exekveringen. 
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Exempel 4.25 


program GissaTal; 
uses Crt; 

const riktigttal = -1; 
var tal : integer; 

begin 

repeat 

ClrScr; 

Writeln( 'Gissa på ett tal -10 till 10.'); 
Write('Ange talet: '); 

Readln(tal); 

if tal = riktigttal then 
Writeln( 'RÄTT GISSAT! ') 

else begin 

Writeln( 'FEL GISSAT! '); 

Delay(IOOO); 

end; 

until tal = riktigttal; 

end. 


Programmet GissaTal tömmer först skärmen. Därefter kommer texten 

Gissa på ett tal -10 till 10. 

Ange talet: 

Repeat-until satsen avslutas när villkoret (tal = riktigttal) blir sant. 


Allmän deklaration av repeat-until-satsen. 

repeat 

<sats> 

until <logiskt uttryck>; 

eller 

repeat 

<sats>; 

<sats>; 

<sats> 

until <logiskt uttryck>; 

Jämfört med while-satsen behöver man ej omsluta satserna med begin och end, även 
om detta också går bra. 

En repeat-sats utföres enligt följande steg: 

-.- Beräknar (utför) satserna mellan repeat-until 

t 

»FALSKT—^» Beräknar det logiska uttrycket efter until 

t 

SANT 

t 

fortsätter i programmet 
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Dbs! Satsen eller satserna efter repeat utförs först en gång, därefter beräknas 
det logiska uttrycket. Endast om det logiska uttrycket är sant avbryts 
loopen. Även här får man passa sig för evighetsloop. 


4.4 SAMMANFATTNING. 

Det finns tre olika repetitionssatser. 

for-satsen 

while-satsen 

repeat-until 


For-satsen arbetar med hjälp av en styrvariabel som räknas upp. 

I repeat-until genomlöps satsen/satserna i repetitionsmomentet alltid minst 
en gång. Testen av det logiska uttrycket sker efter until. 

I while-satsen kan det inträffa att satserna inte alls genomlöps. Test av 
det logiska uttrycket sker efter while. 

For-satsen exekverar mycket snabbare än de båda andra och är därför att 
föredra där det är möjligt. 


4.5 CASE-SATSEN. 

Ibland är if-then-else-konstruktionen otymplig. Då kan man använda case-satsen i 
stället. 

Exempel 


Readln(tal); 
if tal = 1 then 

Write('Talet är ett. ') 
else if tal = 2 then 

Write( 'Talet är två. ') 
else if tal = 3 then 

Write('Talet är tre. '); 


Samma programavsnitt löst med case-of: 


readln(tal) 

case tal of 

1: Write('Talet är ett. '); 

2: Write('Talet är två. '); 

3: Write('Talet är tre. '); 

end; 
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Det är värdet på variabeln tal som bestämmer vilken Write-sats som skall skrivas 
ut. 


Om tal har värdet ett sker utskriften: Talet är ett. 

Om tal har värdet två sker utskriften: Talet är två. 

Om tal har värdet tre sker utskriften: Talet är tre. 

Om tal inte har något av värdena ett, två eller tre kommer ingen av Write-sat- 

serna att utföras. Satsen efter kolon (:) kan vara en godtycklig sats. Om flera 
satser skall ingå måste de bindas ihop av begin och end. 

Exempel 4.26 

program Namn; 

var tal : integer; 

begin 

Writeln( '***** MENY ***** '); 

Writeln; 

Writeln( '1. POJKNAMN. '); 

Writeln( '2. FLICKNAMN. '); 

Write( 'Vilket alternativ önskas. (Ange 1 eller 2): '); 

Readln(tal); 

case tal of 

1:Writeln('Adam är ett ett pojknamn.'); 

2:Writeln('Eva är ett flicknamn.'); 

end; 

end. 


Programmet kommer att ge följande utskrift: 

***** meny ***** 


1. POJKNAMN. 

2. FLICKNAMN. 

Vilket alternativ önskas. (Ange 1 eller 2): 


Nu bestäms nästa utskrift av värdet som tal kommer att tilldelas genom satsen 
Readln(tal);. Om tal får värdet ett får vi utskriften: "Adam är ett pojknamn." 
och programmet avslutas. Om tal får värdet två får vi utskriften: 

" Eva är ett flicknamn." och programmet avslutas. Om däremot t ex talet tre 
anges, sker ingen utskrift och programmet avslutas. 


Allmän deklaration av case-satsen: 

case <uttryck> of 
vardel : sats; 
varde2 : sats; 
varde3 : sats; 


värden : sats; 

end; 
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Uttrycket mellan case och of måste vara av enkel datatyp, dock ej real. 
Satsen efter kolon (:) kan vara en godtycklig sats. Om flera satser skall 
ingå måste de bindas ihop av begin och end. 

Om <uttryck> har ett värde bland de uppräknade värdena till vänster om ett 
kolon(:) utförs satsen för det angivna värdet. 

Om <uttryck> har ett värde som saknas bland de uppräknade värdena till 
vänster om kolona (:) utförs inte case-satsen. I standard Pascal är detta 
inte tillåtet. 

Ett värde kan anges som ett antal uppräknade värden. Man kan tom ange 
ett intervall. 


Exempel 4.27 


case tal of 
- 10..-1 

1.3.5.7.9 

2.4.6.8.10 
0 

end; 


Writeln( 'Negativt'); 
Writeln( 'Udda '); 
Writeln( 'Jämnt'); 
Writeln( 'Noll'); 


Allmän deklaration av case-else-satsen. 

I Turbo Pascal kan case-satsen också ha följande struktur: 

case <uttryck> of 
vardel : sats; 
varde2 : sats; 
varde3 : sats; 


värden : sats 

else 

sats; 

end; 


Om <uttryck> inte antar något av värdena till vänster om kolonen utförs satsen 
efter else. Om flera satser skall utföras efter else skall dessa omges av 

begin-end. 


4.6 Matematiska funktioner. 
Trunc(x) och Round(x). 


T runc(x) . 

Trunc(x) ger det trunkerade, "avklippta", heltalsvärdet av x. 

Exempel 4.28 

Trunc(8.4) ger heltalsvärdet 8 
Trunc(8.7) ger heltalsvärdet 8 
Trunc(-9.2) ger heltalsvärdet -9 
Trunc(-8.7) ger heltalsvärdet -8 

Lägg märke till att x, argumentet, är av typen real och det trunkerade värdet 
blir av typen longint i Turbo Pascal 4.0 och av typen integer i Turbo Pascal 

3.0. 
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Round(x). 

Round(x) ger det avrundade heltalsvärdet av x. 

Exempel 4.29 

Round(8.4) ger heltalsvärdet 8 
Round(8.5) ger heltalsvärdet 9 
Round(8.7) ger heltalsvärdet 9 
Round(-9.4) ger heltalsvärdet -9 
Round(-9.5) ger heltalsvärdet -10 
Round(-9.8) ger heltalsvärdet -10 

Lägg märke till att x, argumentet, är av typen real och det avrundade värdet 
blir av typen longint i Turbo Pascal 4.0 och av typen integer i Turbo Pascal 
3.0. 


Exempel 4.30 

För "snygga" utskrifter vid t ex öresavrundning kan round användas. 


fintpris := Round(pris * 100) / 100; 
Writeln('Priset blir fintpris,' kr.'); 


0m pris har t ex värdet 176.39846 kommer utskriften i writeln-satsen att bli: 

Priset blir 176.60 kr. 

Exempel 4.31 

program Test; 
uses Crt; 

var avhugget,avrundat : integer; 

taljare,namnare, resultat : real; 
begin 
ClrScr; 

Writeln('Testprogram för Trunc och Round.'); 

Writeln; 

Write('Ange täljare '); 

Readln(taljare); 

Write('Ange nämnare (noll avslutar) '); 

Readln(namnare); 
while namnare <> 0 do begin 
resultat := taljare/namnare; 
avhugget := Trunc(resultat); 
avrundat := Round(resultat); 

Writeln( 'Exakt blir kvoten: ',resultat :8:2); 

Writeln('Resultatet med Trunc: ',avhugget); 

Writeln('Resultatet med Round: ',avrundat); 

Write( 'Ange täljare '); 

Readln(taljare); 

Write('Ange nämnare (noll avslutar) 

Readln(namnare); 

end; 

Writeln('Nu förstår du nog Trunc och Round'); 

end. 
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Använd programmet för att träna dig på Trunc(x) resp. Round(x). 

Int(x) och Frac(x). 

Int(x). 

Int(x) trunkerar ett reellt tal x och resultatet blir av typen real. 

Frac(x) 

Frac(x) ger decimaldelen av ett reellt tal, x skall vara av typen real. 
Frac(x) = x - Int(x) 

Exempel 4.32 

program IrunkDec; 

var tal, resultati, resultat2 : real; 

begin 

Write( 'Ange ett tal: '); 

Readln(tal); 
resultati := Int(tal); 
resultat2 := Frac(tal); 

Writeln('trunkerat blir tal',resultati); 

Writeln( 'Decimalerna är ',resultat2 ); 
end. 


Exempel på körningar 
Ange ett tal: 2.3 

Trunkerat blir tal 2.0000000000E+00 
Decimalerna är 3.0000000000E-01 

Ange ett tal: 123.7898763 
Trunkerat blir tal 1.2300000000E+02 
Decimalerna är 7.8987649991E-01 

Som du se verkar det inte stämma riktigt i andra körningen. 

123.7898765 - 1.2300000000E+02 = 7.8987649991E-01. Det borde bli 7.898765E-01. 
På grund av att talen sparas som binära tal innebär detta att flyttalen inte 
alltid är exakta. I vårt fall sparades tal som 123.78987649991. Detta bör man 
tänka på när man i sitt program jämför flyttalsvariabler med varandra. Det är 
inte säkert att datorn tycker att de är exakt lika även om de borde vara det. 

Odd(x). 

Funktionen Odd avgör om heltalet x är jämnt eller udda. Resultatet är booleskt. 
Om Odd ger true är x ett udda tal och om Odd ger false är x ett jämnt tal. 

Exempel 4.33 

program UddaJamnt; 
var tal : longint; 

begin 

Write('Ange ett heltal: '); 

Readln(tal); 
if Odd(tal) then 

Writeln('Talet är udda!') 

else 

Writeln('Talet är jämnt!'); 

end. 
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4.7 Slumptal. 

Random och Random(i). 

Funktioner som skapar slumptal är Random och Random(i), 

Random ger reella slumptal från 0 och upp till 1. 

Random(i) ger slumptal i form av heltal från 0 och upp tom i-1. 

Exempel 4.34 

program Slumpi; 
begin 

Writeln(Random :8:10); 

end. 

Exempel 4.33 

program Slump2; 
begin 

Writeln(Random(10)); { Ger slumptal från 0 och upp tom 10-1 } 

end. 


{ Ger slumptal mellan 0 upp till 1 } 
{ 10 decimaler } 


Exempel 4.36 

program Slump3; 

var kast, start : integer; 

begin 

Writeln('Slumpkast med tärning.'); 

Write( 'Hur många kast önskas: '); 

Readln(kast); 

for start := 1 to kast do 

Writeln(1 + Random(6)); { Ger heltal 1 t o m 6 } 

end. 


Randomize 

I Turbo Pascal finns även proceduren Randomize. Med satsen 
Randomize; 

garanteras att Random ges ett nytt startvärde för varje serie med slumptal. 


4.8 Ytterligare matematiska funktioner. 

Om man vill använda datorn till att göra mer avancerade matematiska beräkningar, 
behöver man givetvis tillgång till lämpliga funktioner. Några av dessa fördekla¬ 
rerade standardfunktioner är: 


Kvadratroten Sgrt(x) 

Kvadraten Sgr(x) 

Sinus Sin(x) 

Cosinus Cos(x) 

Exponentialfunktionen Exp(x) 

Naturliga logaritmen Ln(x) 

Absolutbelopp Abs(x) 

Arcustangens ArcTan(x) 
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Uttrycket x som står innanför parentesen brukar kallas argumentet och skall 
vara av heltals- eller flyttalstyp. 

- Argumentet för sinus och cosinus måste anges i radianer. 

Alla funktionerna returnerar ett flyttalsvärde som resultat. Undantag är Sgr 
som returnerar ett heltal, om argumentet är ett heltal. 


Beräkning av potensuttryck och tio-logaritmer. 

I Pascal har man bara tillgång till de närbesläktade funktionerna 

Exp(x) som beräknar exponentialuttrycket e x och 
Ln(x) som beräknar e-logaritmen av talet x. 

Potensuttryck. 

Med hjälp av några räkneregler finner man att 
a = e ln(a) 
varför 

a b = (e ln(a) ) b = e b * ln(a) . 

I Pascal beräknas därför a b som värdet av uttrycket 
Exp(b*Ln(a)). 

Exempel 4.37 

1.08”^*^ beräknas som Exp(-2.5*Ln(1.08)) 

Tio-logaritmer. 

Vad beträffar tio-logaritmen för ett tal x, lg(x), så gäller 
x = 10 lg(x) . 

Tar man e-logaritmen på båda leden får man 
ln(x) = ln(10 lg(x) ) = lg(x)*ln(10) 
varför 

lg(x) = ln(x)/ln(10). 

Exempel 4.38 

lg(2.5*10 - ^) beräknas som Ln(2.5E-3)/Ln(10) 
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Programexempel. 


Vi avslutar kapitlet med två programexempel som använder sig av några matemati¬ 
ska funktioner. 

Exempel 4.39 

program Kvadratrot; 
var tal : real; 
begin 

Write('Ange ett tal: '); 

Readln(tal); 

Writeln('Kvadratroten på talet är ',Sqrt(tal)); 

end. 

Ett tal läses in med satsen Readln(tal) och kvadratroten av det inlästa talet 
beräknas med instruktionen Sqrt(tal). Eftersom instruktionen Sqrt(tal) står i en 
Writesats kommer det beräknade värdet av Sqrt(tal) att skrivas ut på skärmen. 

Exempel 4.40 

program Kvadrat; 
var 

i : integer; 
x : real; 

begin 

Writeln( ' 2 '); 

Writeln( x x '); 

for i := 1 to 10 do begin 
x := i/10; 

Writeln(x:8:2, ' ', Sqr(x) :8:2); 

end; 

end. 

Programmet Kvadrat ger följande utskrift: 

2 


0.10 

0.01 

0.20 

0.04 

0.30 

0.09 

0.40 

0.16 

0.50 

0.25 

0.60 

0.36 

0.70 

0.49 

0.80 

0.64 

0.90 

0.81 

1.00 

1 .00 
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5 Skärmhantering och grafik 

Utvecklingen av datorer sker i en rasande fart. Den tid är inte särskilt avläg¬ 
sen då man kommunicerade med datorn på i stort sett två sätt: Datorn gavs några 
få kommandon, varpå resultatet av datorns bearbetningar erhölls i form av en ut¬ 
skrift på ett pappersark. Under många år har skrivare runt om i världen produce¬ 
rat en ändlös följd av utskrifter på pyjamasrandigt papper. 

Samtidigt som mikrodatorerna blivit mer kapabla har de också sjunkit i pris. De 
utgör i dag var mans egendom och är inte förbehållna några få experter. Prog¬ 
ram, enkla att styra t ex via tydliga och förklarande menyer, med presentation 
av resultat i form av diagram, har också blivit vanligare. 

I Turbo Pascal finns inbyggt dessa extra möjligheter, som inte är standard, att 
hantera skärmen. De fungerar säkert endast på IBM PC datorer eller likvärdiga 
datorer. I vissa fall krävs att man har ett speciellt kort, t ex CGA, EGA eller 
Hercules, monterat i datorn. 

De kommandon eller instruktioner, som är avsedda att hantera bl a skärmen, är 
samlade i Turbo Pascalenheterna Crt och Graph. 

Crt-enheten innehåller rutiner som rör text på skärmen, tangentbordet och högta¬ 
laren. 

Graph-enheten innehåller mängder av grafikrutiner för att rita punkter, linjer, 
cirklar, polygoner, fylla areor etc. 

Vi kommer här endast att behandla ett urval av dessa och hänvisar intresserade 
till sammanfattningen av de olika Turbo Pascalenheterna längre fram i boken. 

I vissa programexempel använder vi oss av datatypen char, som behandlas utför¬ 
ligt i kapitel 6. Om du i dessa exempel inte förstår hur datatypen används, kan 
du konsultera avsnittet 6.1.1. Där redogörs också för rutinen Ord, som returne- 
rar ASCII-värdet av ett tecken och rutinen Chr, som returnerar det tecken, som 
svarar mot ett visst ASCII-värde. 

5.1 Skärmhantering. 

Det finns åtskilliga rutiner, med vars hjälp man kan manipulera skärmen. Vi kom¬ 
mer i det här avsnittet att presentera flera av dessa. Men låt oss först visa 
ett enkelt exempel på hur man kan välja olika sätt att ställa in skärmen. 

Exempel 5.1 

program Stallln; 
uses Crt; 

begin 

TextMode(C80); 


TextBackground(blue); 

TextColor(yellow); 

Writeln('Svenska färger.'); 

end. 

Som framgår av programmet kan man med instruktionen TextMode ställa in skärmen, 
så att man får texten utskriven i färg. Man har också möjlighet att välja text- 
färg och bakgrundsfärg. Vi diskuterar detta utförligare i följande avsnitt. 


{ Vi måste lägga till denna rad för } 

{ att kunna använda skärmrutinerna. } 

{ Här ställer vi in textmod. Skärmen } 
{ kan nu visa 25 rader med 80 tecken } 


{ i färg. } 
{ Här väljer vi att texten skall } 
{ skrivas ut på blå bakgrundsfärg. } 
{ Här väljer vi gul textfärg. } 
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5.1.1 Textmoder. 


En normal bildskärmen rymmer 25 textrader. Varje rad är 40 eller 80 tecken lång 
Olika textmoder finns tillgängliga beroende på vilken typ av skärm man använder 

TextMode 

Inställningen av textmod sker genom att man i sitt program skriver någon av sat 
serna 


TextMode(BW40); 
TextMode(C40); 
TextMode(BW80); 
TextMode(C80); 
TextMode(mono); 
TextMode(lastMode); 


Svartvit text med 40 tecken (kort för färg) 
Text i färg med 40 tecken (kort för färg) 
Svartvit text med 80 tecken (kort för färg) 
Text i färg med 80 tecken (kort för färg) 
Svartvit text med 80 tecken (monokromkort) 
Återställer tidigare vald textmod. 


Självfallet kan man inte välja en textmod, som kräver ett viss kort, om datorn 
saknar detta. 

Beteckningarna, som används som argument till TextMode ovan, är fördeklarerade 
konstanter: 


BW40 = 0 
C40 = 1 
BW80 = 2 
C80 = 3 
mono = 7 

lastMode är en variabel som innehåller värdet av senaste textmod. 


TextMode(l) betyder alltså detsamma som Textmode(C40); 

I Turbo Pascal version 3.0 finns inte moden mono och i stället för 
TextMode(lastMode) används TextMode enbart. 

Till konstanterna ovan hör ytterligare en, font8x8 med värdet 256. 0m denna 
konstant adderas till ett modvärde då en textmod väljs in, kan skärmen visa 43 
rader på en EGA-skärm och 50 rader på en VGA-skärm. Se exempel nedan. 


Exempel 5.2 

TextMode(C40); 
TextMode(2); 
TextMode(C80+font8x8); 
T extMode(lastMode); 


Välj text i färg med 40 tecken. 

Välj svartvit text med 80 tecken. 

Text i färg med 80 tecken och 43/50 rader. 
Välj tillbaka föregående textmod. I Turbo 
Pascal version 3.0 skriver man enbart 
TextMode; 
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Exempel 5.3 


När TextMode exekveras kommer skärmen att tömmas och textmarkören placeras i det 
övre vänstra hörnet på skärmen. 

program Moder; 
uses Crt; 

var ch : char; { Kan bara innehålla ett tecken, se avsnitt 6.1.1 } 
mode: integer; 

begin 

mode:=lastMode; 

Writeln('Detta är den ursprungliga textmoden.'); 

Writeln('Den har värdet ',mode); 

WritelnC 'Iryck på EN1ER.'); 

Read(ch); 
lextMode(C40); 

WritelnC'När en ny textmod väljs, töms skärmen.'); 

Writeln( 'Skärmen rymmer 25 rader med 40 tecken i färg.'); 

Writeln( 'Iryck på ENTER. '); 

Readln(ch); 

TextMode(mode); 

WritelnC'Som du märker är detta den ursprungliga textmoden.'); 

end. 


5.1.2 Färgval. 

De färger som är tillgängliga, då man valt en textmod för färg, framgår av 
tabellen nedan. 

Mörka färger Ljusa färger 

Heltalsvärde Namn Heltalsvärde Namn 


0 

black 

8 

darkgray 

1 

blue 

9 

lightblue 

2 

green 

10 

lightgreen 

3 

cyan 

11 

lightcyan 

4 

red 

12 

lightred 

5 

magenta 

13 

lightmagenta 

6 

brown 

14 

yellow 

7 

lightgray 

15 

white 


Färgtabell 

Färgerna refereras till antingen med något av talen 0-15 eller med någon av de 
fördeklarerade heltalskonstanterna i namnkolumnerna, dvs black, blue etc. 

TextColor 


Den färg, color, som man vill att texten skall skrivas ut med, kan väljas bland 
någon av de sexton färgerna i tabellen ovan. 


Exempel 5.4 

lextColor(7); 
lextColor(lightgray); 


Sätt textfärgen till ljusgrå färg, färg nr 7. 
Samma som ovan. 
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Vill man att texten skall blinka adderar man talet 128 till färgvärdet. Den för 
deklarerade konstanten blink som har detta värde går också att använda (i tidi¬ 
gare versioner av Turbo Pascal har konstanten blink värdet 16). 

Exempel 5.5 

TextColor(7+128); ISätt textfärgen till blinkande ljusgrå färg. 

TextColor(red+blink); | Sätt textfärgen till blinkande röd färg. 


T extBackground 

Den färg, backgroundcolor, som man vill att texten skall skrivas på kan endast 
väljas bland de mörka färgerna, dvs de första åtta färgerna. 

Exempel 5.6 

TextBackground(blue); I Sätt blå bakgrundsfärg. 

TextBackground(6); |Sätt brun bakgrundsfärg. 


5.1.3 Textintensitet. 

Även om datorn inte kan visa texten i färg, har man ändå vissa möjligheter att 
variera textutskriften med hjälp av ljusstyrkan på texten. Det finns tre ruti¬ 
ner att reglera detta med. De kan användas även om en textmod för färg är aktiv 

LowVideo 

När denna instruktion exekveras, kommer texten att skrivas med låg ljusstyrka. 
Om en färgmod är aktiv kommer texten att skrivas med motsvarande färg bland de 
mörka färgerna. I färgtabellen på sidan 59 svarar t ex röd färg i den vänstra 
spalten mot ljusröd färg i den högra spalten. 

Exempel 5.7 


TextColor(white); 

Writeln('Denna text är vit'); 
LowVideo; 

Writeln('Denna text är ljusgrå'); 


Välj vit textfärg. 

Välj låg textintensitet. 
Texten blir då ljusgrå. 


HighVideo 

Efter denna instruktion, kommer texten att skrivas ut med hög ljusstyrka. 

Om en färgmod är aktiv kommer texten att skrivas med motsvarande färg bland de 
ljusa färgerna. Jämför LowVideo. 


NormVideo 

Återställer textintensiteten till den intensitet som rådde då programmet starta 
des. 
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Exempel 5.8 


Programmet nedan visar hur man väljer textmod och textfärg och demonstrerar sam¬ 
tidigt intensitetsbegreppet. 


program Intensitet; 
uses Crt; 
var ch:char; 

beqin 

TextMode(C40+font8x8); { Välj text i färg 40 tecken. } 

{ Konstanten font8x8 är verksam } 

{ endast på EGA- och VGA-skärmar } 

TextColor(yellow); { Välj gul textfärg (ljus färg) } 


HighVideo; { Ändra till ljus färg dvs gul färg } 

Writeln( 'Detta skrivs med hög intensitet'); 

LowVideo; { Ändra till mörk färg dvs brun färg} 

Writeln('Detta skrivs med låg intensitet'); 

NormVideo; { Återgå till ursprunglig färg } 

Writeln('Detta skrivs med den ursprungliga intensiteten'); 

Writeln; 

Writeln('Tryck på ENTER, så väljs textmod BW80.'); 

Read(ch); 

TextMode(BW80); { Välj svartvit text med 80 tecken } 

Writeln('Alla parametrar som intensitet, färgval etc är nu nollställda.'); 

end. 


5.1.4 Textmarkörens position. 

Bildskärmen består av ett antal rader och kolumner. Vi kan föreställa oss bild¬ 
skärmen som ett koordinatsystem där x-koordinaten, kolumnvärdet, börjar på vär¬ 
det 1 på bildskärmens vänstra sida och ökar åt höger. För y-koordinatvärdet, 
radvärdet, gäller att det räknas uppifrån och nedåt på skärmen och börjar med 
talet 1. 

Skärmens övre vänstra hörn har koordinaterna (1,1) medan skärmens nedre vänstra 
hörn har koordinaterna (1,25). 

Vi kan flytta markören och också avläsa dess position med instruktionerna nedan. 
Observera att dessa rutiner är fönsterberoende. Se textfönster längre fram. 

GotoXY 

Vi har tidigare använt oss av denna instruktion för att ställa markören var som 
helst på skärmen. 

Syntax: GotoXY(kol,rad); 

Här är kol och rad av heltalstyp med värden enligt ovan. 

WhereX 

WhereY 

Dessa två instruktioner ger besked om kolumn- respektive radvärde för markören. 
Värdena lagras i heltalsvariabler t ex kol och rad. 

Syntax: kol:=WhereX; 

rad:=WhereY; 
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5.1.5 Rensa skärm och rad. 

Även dessa rutiner är fönsterberoende. Se textfönster längre fram. 

ClrScr 

Instruktionen rensar skärmen (fönstret) i vald bakgrundsfärg. 

Syntax: ClrScr; 

ClrEol 

Instruktionen rensar allt på raden till höger om markören i vald bakgrundsfärg. 
Markörens läge påverkas ej. 

Syntax: ClrEol; 

Exempel 5.9 

Vi visar här hur man kan tömma skärmen i lämplig bakgrundsfärg, välja olika sätt 
att skriva texten på och hur man kan flytta textmarkören och avläsa dess värde. 

program TextIFarg; 
uses Crt; 
var i, 

x,y :integer; 
ch :char; 

begin 


TextMode(C80); { Färgmod 25 rader med 80 tecken } 
TextBackground(blue); { Blå bakgrundsfärg } 
ClrScr; { Rensa hela skärmen i blå bakgrundsfärg. } 
GotoXY(10,5); 

TextColor(yellow); { Gul förgrundsfärg = textfärg } 
Writeln( 'Avsluta programmet genom att trycka ENTER-tangenten. '); 


GotoXY(10,10); 

TextColor(yellow); 

TextBackground(lightgray); 

Writeln('Detta är gul text på grå botten.'); 

GotoXY(10,12); 

TextColor(red); 

TextBackground(cyan); 

Write('Botten är här cyanfärgad. Texten är röd och kan '); 
TextColor(red+blink); 

Write( 'blinka'); 

GotoXY(10,14); 

TextColor(lightred); 

TextBackground(blue); 

Write('Markören befinner sig i position ( , ):'); 
x:=WhereX; 
y: =WhereY; 

GotoXY(x-7,y); 

Write(x:2) ; 

GotoXY(x-4,y); 

Write(y:2); 

GotoXY(x,y); 

Read(ch); 
end. 
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5.1.6 Textfönster. 


Med fönster menar vi en rektangulär del av bildskärmen. 

Med hjälp av ett fönster kan man begränsa den del av skärmen man för tillfället 
vill arbeta med. 

I Turbo Pascal finns en enkel men ändå mycket användbar fönsterrutin. 
Textfönstret uppför sig precis som en förminskad skärm med radframmatning vid 
radslut etc. 

Window 

Textfönstret ges med denna instruktion. Minimimått för ett fönster är en kolumn 
och en rad. 

Syntax: Window(xl,yl,x2,y2); 

Här anger (x1,y1) koordinaterna för fönstrets övre vänstra hörn och (x2,y2) 
koordinaterna för dess nedre högra hörn. Alla koordinater är av heltalstyp. 


Skärmkoordinater och fönsterkoordinater. 

När man definierar ett fönster måste man ange koordinater för fönstrets hörn. 
Dessa koordinater avser alltid hela skärmen. Vi kommer att kalla sådana koordi¬ 
nater för skärmkoordinater. 

En position i ett fönster anger man alltid relativt fönstrets övre vänstra hörn. 
Dessa koordinater kallar vi fönsterkoordinater. 


(4,4) skärmkoordinater för fönstret 
1 (1,1) fönsterkoordinater 


skärmkoordinater för fönstret (76,20) 


□bs! Så länge man inte definierat ett fönster är aktuellt fönster hela 

skärmen. Alla koordinater (utom själva koordinaterna för fönstret) 
anges alltid i det aktuella fönstret. 

Exempel 5.10 

Efter instruktionen 

Textmode(C80); 

har skärmens övre vänstra hörn kolumnvärdet 1 och radvärdet 1. Det aktiva fönst¬ 
ret är hela skärmen. Alla tidigare inställningar är nollställda. Om man nu defi¬ 
nierar ett fönster t ex 

Window(10,5,70,20); 
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hamnar fönstrets övre vänstra hörn i kolumn 10 på rad 5. Instruktionen 


som är fönsterberoende, kommer att placera markören 
hörn. 


fönstrets övre vänstra 


I programmet visas successivt olika fönster. I varje fönster skrivs en förkla¬ 
rande text ut. Studera exemplet noga och kör programmet så att du kan se effek¬ 
terna av de olika fönsterinstruktionerna. 

program Fönster; 
uses Crt; 
var chrchar; 

begin 

TextMode(C80); { Fönster nummer noll, dvs } 


{ Fönster nummer noll, dvs 
{ hela fönstret. 

{ Välj blå bakgrund 
{ Töm skärmen med blå färg 


TextBackground(blue); { Välj blå bakgrund 

ClrScr; { Töm skärmen med blå fä 

TextColor(yellow); 

Writeln('Aktuellt fönster är nu hela skärmen.'); 

Writeln( 'Fönsterkoordinaterna överensstämmer med skärmkoordinaterna. 
Writeln; 

Writeln('När du trycker på ENTER-tangenten skapas ett fönster'); 
Writeln('med övre vänstra hörnet i (40,10) och det nedre högra'); 
Writeln('hörnet i (70,20).'); 

Writeln('OBS! Dessa koordinater är skärmkoordinater! '); 

Read(ch); 


Window(40,10,70,20); { Fönster nummer ett. } 

TextBackground(lightgray); { Välj ljusgrå bakgrund } 

ClrScr; { Töm fönstret i ljusgrå färg) 

GotoXY(1,2); 

TextColor(brown); 

Write('Denna text skrivs ut med början i position (1,2). '); 

Write( 'OBS! DETTA ÄR FÖNSTERK00RDINATER !! '); 

Write( 'Som du märker fortsätter texten på nästa rad, om '); 

Writeln( 'textlängden överskrider fönsterbredden.'); 

Writeln('Trycker du på ENTER-tangenten görs ett antal radframmatningar 
Readln(ch); 

Write('Som du ser kommer texten att rullas upp,'); 

Writeln( 'om den inte får plats i fönstret.'); 

Writeln('Trycker du på ENTER-tangenten skapas ett nytt fönster'); 

Read(ch); 


Window(1,15,80,18); 
TextBackground(lightcyan); 

ClrScr; 

GotoXY(25,2); 

TextColor(white); 

Writeln('Detta är ett tredje fönster.'); 

end. 


{ Fönster nummer två. } 
{ Välj ljus cyan som bakgrund} 
{ Töm fönstret med denna färg} 
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5.2 Tangentbord och högtalare (ljud). 

5.2.1 Tangentbord 
KeyPressed 

Vi har redan i tidigare avsnitt berört denna behändiga instruktion, se sid 47. 

ReadKey 

Detta är en annan mycket användbar instruktion med vars hjälp man kan avläsa 
vilken tangent som man tryckt ner. 

Syntax: ch:=ReadKey; 

Variabeln ch lagrar returvärdet från ReadKey och är av typen char. 

I Turbo Pascal version 3.0 motsvaras ReadKey av instruktionen Read(kbd,ch); 

Om den avlästa bokstaven har ASCII-värdet noll (i version 3.0 värdet 27) har en 
funktionstangent tryckts ner. Funktionstangenter har alltid dubbla ASCII-värden 
där det första tecknet anger att det är fråga om en funktionstangent. I så fall 
måste även det andra tecknet läsas av. 


Exempel 5.12 

I programmet tilldelas variabeln ch värdet '5' för att repeat-loopen säkert 
skall fungera tills ch har antagit värdet '0'. 

I repeat-loopen testas med KeyPressed om tangent tryckts ner. Om så är fallet 
avläses denna tangent med ReadKey och motsvarande värde lagras i variabeln ch. 

Vi testar med rutinen Ord (se avsnitt 6.1.1) om tecknets ASCII-värde är noll. 

Om en funktionstangent tryckts ner, läses även den andra bokstaven. 

Därefter skrivs ASCII-värdet för bokstaven (tangenten) ut på skärmen. 

program KeyBoard; 
uses Crt; 
var chrchar; 

begin 

ClrScr; 
ch:= '5'; 

repeat 

if KeyPressed then begin 
GotoXY(1,10); 

ClrEol; 
ch:=ReadKey; 

if 0rd(ch)=0 then begin { Funktionstangent } 
ch:=ReadKey; 

Writeln('Funktionstangent: ASCII-värde 27, ',Ord(ch)); 

end 

else 

Writeln('ASCII-värdet för nertryckt tangent är ',0rd(ch)); 

end; 

until ch= '0 '; 
end. 
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5.2.2 Högtalare 
Sound och NoSound 

Högtalaren regleras med dessa två instruktioner. 

Syntax: Sound(440); 

Får högtalaren att ljuda med tonen 440 Hz, tills den stängs av med NoSound. 
Syntax: NoSound; 

Stänger av högtalaren. 


Exempel 5.13 Siren. 


Programmet ger omväxlande två toner, en hög och en låg. 


program Siren; 
uses Crt; 
var i:integer; 
begin 
repeat 

Sound(750); 
Delay(600); 
Sound(550); 
Delay(600); 


Ger en hög ton, 750 Hz 
Låt den vara i 600 ms 
Ger en låg ton 550 Hz 
Låt den vara i 600 ms 


until KeyPressed; 
NoSound; 

end. 


Exempel 5.14 

Programmet är tänkt som en illustration till hur man kan åstadkomma mera samman¬ 
satta ljud och är ett försök att efterlikna en sparvs kvitter. 


program Sparv; 
uses Crt; 
var i:integer; 

begin 

repeat 


for i:=1500 to Random(4000)+2000 do 
Sound(i); 

NoSound; 

Delay(Random(500)+100); 


Låt högtalaren ge ifrån sig alla toner 
från och med 1500 Hz upp till en 
slumpmässig övre gräns, 2000-6000 Hz. 
Stäng av högtalaren och vänta mellan 
100 till 600 ms. 


until KeyPressed; 
NoSound; 

end. 


Genom att variera tonhöjd och tonlängd kan man åstadkomma mycket suggestiva 
läten. Prova själv! Du kan räkna med att få de mest oväntade resultat! 
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5.3. Grafik. 


En bild kan i ett ögonblick återge tusentals detaljer, förmedla sinnesintryck 
och stämningar. Den är i de flesta fall helt överlägsen allt annat, när det gäl¬ 
ler att beskriva helheten av någonting, vare sig det handlar om att presentera 
ett resultat i diagramform, åskådliggöra hur ett hus är byggt eller till och med 
hur ett flygplan ser ut och rör sig. Vem skulle väl komma på tanken att "måla" 
Mona Lisa med ord? Ett sådant porträtt skulle aldrig kunna göra originalet 
rättvisa, även om det i sig kan ha andra kvaliteter. 

I takt med att priset på datorer sjunkit har man inom affärsvärlden, industrin, 
skolor, allt mer börjat utnyttja datorgrafik och funnit att den kan tjäna de 
mest skilda syften. Datorgrafik har kommit att spela en allt större roll. 

Även om de grafiksystem som finns till mikrodatorer ligger långt från vad 
datorbranschen kan prestera, så är de kapabla nog att ge goda bilder med en ac¬ 
ceptabel arbetsinsats av en inte alltför driven programmerare. Hur pass lyckat 
resultatet blir, beror naturligtvis mycket på de hjälpmedel som står till buds. 

I lurbo Pascal version 4 är det väl sörjt för den grafikintresserade genom den 
mycket kraftfulla grafikenheten Graph. Denna innehåller mängder av olika grafik- 
rutiner och är dessutom lätt att anpassa till olika typer av skärmar. 

Grafikenheten innehåller bl a 

Initiering och anpassning av grafiken till olika skärmtyper. 

Fönsterrutiner. 

Punkt- och linjeorienterade rutiner. 

Rutiner för att rita polygoner och för färgläggning av areor. 

Olika kurvrutiner, cirklar, ellipser mm. 

Färg- och palettrutiner. 

Rutiner för lagring och förflyttning av figurer. 

Utskrift av text med olika typsnitt. 

Vi kommer här endast att behandla en del av dessa och koncentrerar oss framför 
allt på de som man man måste behärska för att kunna hantera grafikpaketet. 

En beskrivning av alla grafikrutinerna ges i sammanfattningen av Turbo Pascal- 
enheterna. 


Exempel 5.15 

Låt oss börja med ett enkelt program som ritar en linje på skärmen. 


program GrafikStomme; 
uses Crt,Graph; 
var graphDriver, 

graphMode : integer; 

begin 

graphDriver:=detect; 
InitGraph(graphDriver,graphMode, ''); 
if GraphResultOgrOk then 
Halt(1); 

LineTo(50,50); 

repeat until KeyPressed; 

CloseGraph; 
end. 


Enheten Graph måste anges här. 
Variablerna graphDriver och graphMode 
används för att ställa in skärmen. 

Undersök vilket kort som är installe¬ 
rat och initiera detta på bästa sätt. 
Om initieringen inte lyckas så 
avsluta programmet. 

Rita en linje till punkten (50,50); 
Vänta tills tangent trycks ner. 
Avinstallera drivrutinen och återgå 
till föregående textmod. 
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För att få tillgång till alla grafikrutiner måste man lägga till enheten Graph 
efter ordet uses. 

I programmet används variabeln graphDriver för att välja en drivrutin som pas¬ 
sar till grafikkort och skärm. Med variabeln graphMode kan man välja olika sätt, 
grafikmoder, att ställa in bildskärmen på. 

Inladdningen av drivrutin och inställning av grafikmod görs med satsen 
InitGraph(graphDriver,graphMode, ''); 

där det tredje argumentet anger var drivrutinen finns. Om man inte anger något 
här som i vårt fall, förutsätts att den finns i det aktuella biblioteket. 

Om inladdningen lyckas, returnerar funktionen GraphResult värdet av konstanten 
grOk, som har värdet noll. Alla andra returvärden innebär att inladdningen mis¬ 
slyckats och programmet avslutas då. 

Därefter ritas en linje på skärmen och datorn väntar på att en tangent skall 
tryckas ner. 

Innan programmet avslutas lämnas det minnesutrymme, som drivrutinen upptar, 
tillbaka till programmet med instruktionen CloseGraph, som också återställer den 
föregående textmoden. 

Programmet ovan kommer vi att använda som stomme i de grafikexempel som följer. 
Vi behöver då inte tänka så mycket på alla de varianter av grafikkort och skär¬ 
minställningar som kan förekomma. 

Den som vill påverka skärmen mera aktivt, hänvisar vi till sammanställningen av 
grafikenheten Graph i kapitel 16. Vi nöjer oss här med att diskutera några 
detaljer kortfattat. 


5.3.1 Olika typer av skärmar. 

Grafiken i Graph har gjorts mycket generell och kan anpassas till olika typer av 
grafikkort. I sammanställningen nedan visas för olika grafikkort den inställning 
av skärmen man kan förväntas få, om grafiken initieras som i exempel 5.15 


Grafikkort 

Maximal 

upplösning (punkter 

i x- 

led, punkter i y-led) 

CGA 

320x200 

i 

fyra färger. 

(Kan 

visa 

640x200 i 

två färger.) 

MCGA 

320x200 

i 

fyra färger. 

(Kan 

visa 

640x480 i 

svartvitt.) 

EGA 

640x350 

i 

16 färger. 





VGA 

640x480 

i 

16 färger. 





Hercules 

720x348 

i 

svartvitt. 





AT&T 6300 

320x200 

i 

fyra färger. 

(Kan 

visa 

640x400 i 

svartvitt.) 

IBM 3270 PC 

720x350 

i 

svartvitt. 






5.3.2 Initiering av grafiken. 

För att man skall kunna använda grafiken måste man tillfoga raden uses Graph i 
sitt program. 

InitGraph 

Initieringen av grafiken kan göras på olika sätt. Det enklaste är att använda 
rutinen InitGraph, som kan avgöra vilken typ av grafikkort som är installerad i 
datorn. Då man använder rutinen måste tre argument anges. Med de två första ar¬ 
gumenten väljer man typ av grafikkort resp grafikmod. Med det tredje argumentet 
anger man i vilket bibliotek som motsvarande drivrutin finns. 
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Drivrutinfiler. 


Drivrutinerna för de olika grafikkorten utgöres av de filer som har extension 
BGI. Det sista argumentet till InitGraph utgör en beskrivning (path) av vägen 
till det bibliotek där drivrutinfilerna finns. 

Exempel 5.16 

Om man anger en tom strängkonstant i satsen 
InitGraph(graphDriver,graphMode,''); 

förutsätts att BGI-filerna finns i det bibliotek som för tillfället är aktuellt. 
Exempel 5.17 

Om filerna ligger i ett annat bibliotek anger man lämpligen den fullständiga 
vägen till biblioteket. I satsen 

InitGraph(graphDriver,graphMode, 'D:\TURB04') ; 

har man specificerat att BGI-filerna ligger på skivenheten D i biblioteket 
TURB04. 


GraphResult 

Om ett fel uppstår vid initieringen av grafiken kan detta avläsas med hjälp av 
funktionen GraphResult som returnerar aktuell felkod. 

Ett fel kan bara avläsas en gång eftersom GraphResult nollställs efter ett 
anrop. Om returvärdet inte är lika med noll, bör man avsluta programmet. 

CloseGraph 

Denna rutin avslutar grafikmoden och återställer skärmen till den textmod som 
rådde då InitGraph anropades. Det minne som använts av drivrutinen frigöres. 
Alla programavsnitt som använder sig av grafik, bör avslutas med ett anrop till 
CloseGraph. 

GraphErrorMsg 

Denna rutin skriver ut det grafiska felet i klartext. 

Syntax: GraphErrorMsg(errorCode); { errorCode = felnumret } 

Exempel 5.18 

errorCode:=GraphResult; 

Writeln( 'Grafiskt fel: ', GraphErrorMsg(errorCode)); 


5.3.3 Anpassning av program till olika skärmtyper. 

Som framgår av tidigare avsnitt kan grafikenheten användas till flera olika gra¬ 
fikkort. Då upplösningen på skärmen skiljer sig mellan dessa kort, krävs att man 
skriver sina program på ett speciellt sätt om man vill att de skall kunna använ¬ 
das generellt. 

I grafikenheten finns rutiner med vars hjälp man lätt kan ta reda på antalet 
punkter i x- och y-led på skärmen, liksom det antal färger som man kan rita med. 
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GetMaxX och GetMaxY 


Dessa rutiner returnerar det största möjliga x-värdet resp det största möjliga 
y-värdet. Det förutsätts att skärmen är satt i grafisk mod. 

Syntax: maxX:=GetMaxX; 

maxY:=GetMaxY; 

Här är variablerna maxX och maxY av lämplig heltalstyp. 

GetMaxColor 

Denna rutin returnerar det största möjliga färgvärde som kan användas. Värdet 
ges som ett heltal. 

Exempel 5.19 

I programmet initieras först grafiken som beskrivits ovan. Om InitGraph inte 
hittar lämplig BGI-fil t ex drivrutinen för EGA-kortet, kommer programmet att ge 
utskriften 

Grafiskt fel: Device driver file not found (EGAVGA.BGI) 

Programmet avslutas. 

och programmet avslutas. I annat fall skrivs ut de parametrar som gäller för den 
aktuella grafikmoden. 

program AllaKort; 
uses Crt,Graph; 

var 

graphDriver, 
graphMode, 
errorCode, 
maxX,maxY, 

colorMax : integer; 

begin 

graphDriver:=detect; 

InitGraph(graphDriver,graphMode, ''); 
errorCode:=GraphResult; 
if errorCodeOgrOk then begin 

Writeln( 'Grafiskt fel: ',GraphErrorMsg(errorCode)); 

Writeln('Programmet avslutas.'); 

Halt(1); 

end; 

maxX:=GetMaxX; 
maxY:=GetMaxY; 
colorMax := GetMaxColor; 

CloseGraph; 

Writeln('Aktuell drivrutin har nummer ',graphDriver); 

Writeln( ' " grafikmod har nummer ',graphMode); 

Writeln( 'Största möjliga x-värde är ',maxX); 

Writeln( ' " " y-värde är ',maxY); 

Writeln('Antalet färger man kan rita med är ', GetMaxColor+1); 

end. 

När man skall rita punkter, linjer etc måste man ange x- och y-koordinater lik¬ 
som den färg man vill rita med. Om programmet skall kunna användas för flera 
grafikkort kan man ju inte förutsätta t ex ett färgvärde som är större än det 
maximala. Som du ser är det relativt lätt att bestämma dessa värden. 


70 


5.3.4 Ett urval av rutiner för att rita i grafik. 

Färgval. Rita punkter. 

De färger som kan användas framgår av beskrivningen av grafikmoder. 

Beträffande värdet för olika färger, se färgtabellen i avsnitt 5.1.2. 

Om för en grafikmod angetts 16 färger avses alla 16 färgerna i färgtabellen. 

En grafisk punkt på skärmen kallar vi ibland även för en pixel. 

En punkt på skärmen anges med ett koordinatpar (x,y). På skärmen ökar x-koordi- 
naterna åt höger och y-koordinaterna ökar nedåt. 

Om vi utgår från att färgmoden för CGA gäller, är upplösningen på skärmen 320 
pixel i x-led och 200 pixel i y-led. Skärmens övre vänstra hörn har koordinater- 
na (0,0) och det nedre högra hörnet har koordinaterna (319,199). 

SetColor 


Med denna instruktion väljer man den färg, som man vill rita med. 
Syntax: SetColor(color); 


Här är color ett heltalsuttryck med ett värde, som ryms inom färgintervallet för 
den aktuella grafikmoden. 


Exempel 5.20 

SetColor(lightblue); 
SetColor(GetMaxColor); 


Välj ljusblå färg som ritfärg. 
Välj största möjliga färgvärde. 


PutPixel 

Med denna instruktion ritar man en punkt på skärmen. 

Syntax: PutPixel(x,y,color); 

Här är x och y heltalsuttryck med värden i intervallen 0..maxX resp 0..maxY. 

0m x och y har positiva värden som ligger utanför dessa intervall ritas punkten 
ej. Punkten ritas i färgen color. 


Exempel 5.21 

Ett kort program som ritar stjärnor. 

program Stars; 
uses Crt,Graph; 

var 

graphDriver, 
graphMode, 
maxX,maxY 
ch 

x,y,i, 

color,colorMax 

begin 

graphDriver:=detect; 

I ni t Graph( graphDriver, graphMode 
if GraphResultOgrOk then 
Halt(1); 


: integer; 
: char; 

: integer; 
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maxX:=GetMaxX; 
maxY:=GetMaxY; 
colorMax:=GetMaxColor; 

for i:=1 to maxY do begin 
x:=Random(maxX+1); 
y:=Random(maxY+1); 
color:=Random(colorMax)+1; 
PutPixel(x,y ,color); 
end; 

ch:=ReadKey; 

CloseGraph; 

end. 


Grafikmarkören. MoveTo och MoveRel. 

Precis som man i textmod har tillgång till en textmarkör, har man i grafikmod 
tillgång till en grafikmarkör. Den enda skillnaden är att grafikmarkören inte 
syns. 

Grafikmarkören påverkas av vissa grafikrutiner men går också att styra direkt 
med instruktionerna MoveTo och MoveRel. 

MoveTo 

Flyttar grafikmarkören till punkten (x,y). 

Syntax: MoveTo(x,y); 

Här är x och y båda integeruttryck. 

MoveRel 

Flyttar grafikmarkören från den aktuella positionen de relativa förflyttningarna 
dx och dy. 

Syntax: MoveRel(dx,dy); 

Om grafikmarkörens aktuella position är (x,y) är instruktionen likvärdig med 
satsen MoveTo(x+dy,y+dy); 

Linjer. Line, LineRel och LineTo. 

Det finns tre olika rutiner för att rita linjer. Man kan variera linjens utseen¬ 
de med instruktionen SetLineStyle. Vi behandlar inte detta här. Se kapitel 16. 

Line 

Drar en linje från (x1,y1) till (x2,y2). 

Syntax: Line(x1,y1,x2,y2); 

Linjen ritas med den färg som valts med SetColor och med det utseende som valts 
med SetLineStyle. Grafikmarkören påverkas ej. 

LineRel 

Drar en linje från grafikmarkörens aktuella position med de relativa förflytt¬ 
ningarna dx och dy. 

Syntax: LineRel(dx,dy); 
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Linjen ritas med den färg som valts med SetColor och med det utseende som valts 
med SetLineStyle. Grafikmarkören placeras i den sista punkt som ritas. 

Om grafikmarkören befinner sig i punkten (x,y) är instruktionen likvärdig med 

Line(x,y,x+dx,y+dy); 

MoveT o(x+dx,y+dy); 


LineTo 

Drar en linje från grafikmarkörens aktuella position till punkten (x,y). 

Syntax: LineTo(x,y); 

Linjen ritas med den färg som valts med SetColor och med det utseende som valts 
med SetLineStyle. Grafikmarkören placeras i den sista punkt som ritas. 

Om grafikmarkören befinner sig i punkten (oldx,oldy) är instruktionen likvärdig 
med 

Line(oldx,oldy,x,y); 

MoveTo(x,y); 


Exempel 5.22 

I programmet ritas ett kors mitt på skärmen. Korset är halva skärmbredden brett 
och halva skärmhöjden högt. 


program KorsIMitten; 
uses Crt,Graph; 

var 

graphDriver, 
graphMode, 

maxX,maxY : integer; 

ch : char; 

begin 

graphDriver:=detect; 
InitGraph(graphDriver,graphMode,''); 
if GraphResultOgrOk then 
Halt(1); 
maxX:=GetMaxX; 
maxY:=GetMaxY; 

SetColor(GetMaxColor); 

MoveTo(maxX div 4, maxY div 2); 
LineTo(3*maxX div 4, maxY div 2); 
MoveTo(maxX div 2, maxY div 4); 
LineTo(maxX div 2, 3*maxY div 4); 


Börja en fjärdedel in i x-led på halva 
höjden och rita till tre fjärdedel in. 
Börja en fjärdedel ner i y-led på halva 
bredden och rita till tre fjärdedelar 
ner. 


ch: =ReadKey; 

CloseGraph; 

end. 

Exempel 5.23 

I programmet drar vi ett antal linjer från punkten (maxX-x,40) till punkten 
(x,maxY-40) och låter x variera från 0 till maxX. 

Linjens begynnelsepunkt kommer då att röra sig från högra sidan av skärmen till 
den vänstra med det konstanta y-värdet=40. 
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Linjens slutpunkt kommer att röra sig från skärmens övre vänstra hörn ner mot 
det högra hörnet. 

program Bumerang; 
uses Crt,Graph; 

var 

graphDriver, 
graphMode, 

maxX,maxY : intege 

ch : char; 

x,y,dx,dy : intege 

begin 

graphDriver:=detect; 

InitGraph(graphDriver,graphMode 
if GraphResultOgrOk then 
Halt(l); 
maxX:=GetMaxX; 
maxY:=GetMaxY; 

x: =0; 

y: =0; 

dx:=maxX div 50; 
dy:=(maxY-40) div 50; 

SetColor(GetMaxColor); 
while x<=maxX do begin 
Line(maxX-x,40jX>y+40); 

Inc(x,dx); 

Inc(y,dy); 

SetColor(Random(GetMaxColor)+1); 

end; 

ch:=ReadKey; 

CloseGraph; 

end. 
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Exempel 5.24 


I programmet nedan låter vi mittpunkten på en pinne (i form av en linje) röra 
sig från det övre vänstra hörnet ner mot det högra samtidigt som pinnen roterar 
moturs kring sin mittpunkt. 


program IrasMatta; 
uses Crt,Graph; 

var 

graphDriver, 
graphMode, 

maxX,maxY : intege: 

ch : char; 

x,y,r,v,dx,dy: real; 
i : integer; 

begin 

graphDriver:=detect; 
InitGraph(graphDriver,graphMode, 
if GraphResuitOgrOk then 
Halt(1); 



maxX:=GetMaxX; 
maxY:=GetMaxY; 


x:=10; 
y:=10; 
r:=50; 

v:=60*pi/180; 

for i:=1 to maxX-20 do begin 

5etColor(Random(GetMaxColor)+1); 
dx:=r*cos(v); 
dy:=r*sin(v); 

Line(Round(x-dx),Round(y+dy), 
Round(x+dx),Round(y-dy)); 
x:=x+1; 
y:=y+0.5; 
v:=v+0.01; 


Pinnens mittpunktskoordinater är (x,y). 

Pinnens längd = r. 

Pinnen lutar 60 grader mot x-axeln. 

Rita maxX-20 stycken pinnar 
i slumpmässig färg. 

Beräkna ändpunkternas relativa lägen 
räknat ifrån pinnens mittpunkt. 

Drag en linje från punkten (x-dx,y+dy) 
till punkten (x+dx,y-dy). 

Flytta pinnen ett steg åt höger och 
ett halvt steg neråt. 

Vrid pinnen ca en halv grad moturs. 


end; 

ch:=ReadKey; 
CloseGraph; 

end. 
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Exempel 5.25 


I programmet nedan ritas ett antal hexagoner där nästa hexagon jämfört med den 
föregående är lite mindre och samtidigt har vridits en liten vinkel. En hexagon 
är en regelbunden sexhörning där sidorna bildar (ytter-) vinkeln 60° med varand¬ 
ra. Alla sidorna är lika långa (=r). Först ritas en sida snett nedåt höger, 
nästa sida ritas rakt ner, nästa sida ritas snett nedåt vänster etc. 


program Hexagon; 
uses Crt,Graph; 

var 

graphDriver, 
graphMode, 
maxX,maxY 
ch 

x>Y>r, 

v,dx,dy 

i, j 

begin 

graphDriver:=detect; 
InitGraph(graphDriver,graphMode, ' ')f 
if GraphResultOgrOk then 
Halt(1); 
maxX:=GetMaxX; 
maxY:=GetMaxY; 

SetColor(GetMaxColor); 

x:=maxX div 2; 

y:=maxY div 2; 

r:=y; 

v: =0; 

dx:=r; 

dy:=0; 

for j:=1 to 40 do begin 

MoveTo(Round(x+dx),Round(y+dy)); 
for i:=1 to 6 do begin 
v:=v+60; 

dx:=r*cos(v*pi/180); 
dy:=r*sin(v*pi/180); 

LineTo(Round(x+dx),Round(y+dy)); 

end; 

r:=r*0.95; 
v:=v+2; 


end; 



Rita med största möjliga färgvärde. 

Utgå från skärmens medelpunkt (x,y). 

Hexagonens sida är r. 

Vinkeln mellan sista sidan och x-axeln. 
De relativa förflyttningarna från (x,y) 
till första hörnet är dx och dy. 

Rita 40 hexagoner. 

Flytta grafikmarkören till (x+dx,y,dy). 
Rita sex sidor i hexagonen. 

Nästa sida bildar 60° med föregående. 
Beräkna relativa förflyttningar till 
nästa hörn. 

Rita sidan till nästa hörn. 

Minska sidan i nästa hexagon med 95?o. 
Vrid den 2° medurs i förhållande till 
föregående. 


integer; 
char; 

real; 
integer; 


ch:=ReadKey; 
CloseGraph; 

end. 
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Rectangle. 

Ritar en rektangel med aktuell färg och linjetyp. 

Syntax: Rectangle(x1,y1,x2,y2); 

Rektangelns övre vänstra hörn har koordinaterna (x1,y1) och dess nedre högra 
hörn har koordinaterna (x2,y2). Alla koordinater måste vara av giltig heltals- 
typ. 

Exempel. 

Rectangle(0,0,GetMaxX,GetMaxY); { Rama in skärmen } 


Mönster vid fyllning av areor. 

Areor kan färgläggas med olika färger och mönster. De fördefinierade mönster med 
tillhörande konstanter som finns att tillgå framgår av tabellen nedan. 


Namn 

emptyFill 

Värde 

0 

Beskrivninq 

Fyller arean med bakgrundsfärgen 

solidFill 

1 

Fyller 

■ hela 

arean med vald färg 

lineFill 

2 

Arean 

fylls 

med 

horisontella linjer 

ltSlashFill 

3 

Arean 

fylls 

med 

tunna snedstreck 

SlashFill 

4 

Arean 

fylls 

med 

tjocka snedstreck 

bkSlashFill 

3 

Arean 

fylls 

med 

tjocka snedstreck (backslash) 

ltBkSlashFill 

6 

Arean 

fylls 

med 

tunna snedstreck (backslash) 

hatchFill 

7 

Arean 

fylls 

med 

kors 

xHatchFill 

8 

Arean 

fylls 

med 

kryss 

interleaveFill 

9 

Arean 

fylls 

med 

korta horisontella streck 

wideDotFill 

10 

Arean 

fylls 

med 

punkter (glest) 

closeDotFill 

11 

Arean 

fylls 

med 

punkter (tätt) 

SetFillStyle 

Fyllmönstret v 

äljs 

med denna 

i instrukt: 

Lon. 


Syntax: SetFillStyle(monster,color); 


Heltalsuttrycket monster har ett värde enligt tabellen ovan. Heltalsuttrycket 
color anger anger den färg som mönstret skall ritas med. 

FloodFill 

Med denna instruktion kan man fylla areor av godtyckligt utseende. Ett villkor 
är att arean begränsas av en viss färg. 

Syntax: FloodFill(x,y,color); 

Här anger heltalsuttrycken x och y en punkt inne i arean. Heltalsuttrycket color 
anger den färg som arean begränsas av. 
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Exempel 5.26 


Programmet är en demonstration av hur man ritar rektanglar och fyller dem med 
ett visst mönster i en viss färg. 


program Fyllmonster; 

uses Crt,Graph; 

var 

graphDriver, 
graphMode, 

maxX,maxY : integer; 

ch : char; 

monster : byte; 

d : integer; 

begin 

graphDriver:=detect; 

InitGraph(graphDriver,graphMode, "); 
if GraphResultOgrOk then 
Halt(1); 
maxX:=GetMaxX; 
maxY:=GetMaxY; 



SetColor(GetMaxColor); 
d:=maxY div closeDotFill-3; 

for monster:=emptyfill to closeDotFill do begin 
Rectangle(0,monster*d, maxY,monster*d+d-3); 
SetFillStyle(monster,Random(GetMaxColor)+1); 
FloodFill(2,monster*d+2,GetMaxColor); 

end; 


Välj färg på rektanglarna 
Beräkna rektangelns höjd 
För alla möjliga fyllmonster 
rita en rektangel 
välj mönster och färg 
fyll rektangeln 


ch:=ReadKey; 

CloseGraph; 

end. 


Bar och Bar3d 

Samma resultat som i programexemplet ovan kan lättare åstadkommas med instruk¬ 
tionen Bar som ritar en rektangel och fyller den med ett visst fyllmonster. 
Instruktionen är mycket användbar om man vill rita histogram. 

Den snarlika instruktionen Bar3d ritar ett rätblock (typ tändsticksask). 

Syntax: Bar(x1,y1,x2,y2); 

Bar3d(x1,y1,x2,y2,top0n); 

Koordinaterna anges precis som för Rectangle. Vid Bar3d har man möjlighet att 
ange ett femte argument (true eller false) som anger om rätblockets ovansida 
skall ritas ut eller ej. Det mönster och den färg som rektangeln (framsidan) 
fylls med väljs med instruktionen SetFillStyle. 
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Exempel 5.27 


Programmet ritar en fylld rektangel (Bar) och två rätblock, varav det ena utan 
ovansida. 

program Bars; 
uses Crt,Graph; 
var 

graphDriver, 
graphMode, 

maxX,maxY : integer; 
ch : char; 

x,y : integer; 

begin 

graphDriver:=detect; 

InitGraph(graphDriver,graphMode, "); 
if GraphResultOgrOk then 
Halt(1); 
maxX:=GetMaxX; 
maxY:=GetMaxY; 

x:=maxX div 8; 
y:=maxY div 8; 

SetFillStyle(xhatchFill,GetMaxColor) 

Bar(10,10,x,y); 

Bar3d(2*x,2*y,3*x,3*y,20,true); 

Bar3d(4*x,2*y,5*x,3*y,30,false); 

ch:=ReadKey; 

CloseGraph; 

end. 

Circle 

Syntax: Circle(x,y); 

Ritar en cirkel med (x,y) som medelpunkt i den färg som valts med SetColor. 

Are 

Ritar en cirkelbåge. 

Syntax: Arc(x,y,startVinkel,slutVinkel,r); 

Cirkelbågen ritas med medelpunkten i (x,y) och radien r, från och med vinkeln 
startVinkel till och med vinkeln slutVinkel. Vinklarna anges i grader (0-360). 

Ellipse 

Ritar en ellips eller en del av en ellips. 

Syntax: Ellipse(x,y,startVinkel,slutVinkel,xRadie,yRadie); 

Ellipsen ritas med medelpunkten i (x,y) från och med vinkeln startVinkel till 
och med vinkeln slutVinkel. Vinklarna anges i grader (0-360). Argumenten xRadie 
och yRadie anger längden av ellipsens x-axel resp y-axel. 


Beräkna lämpliga koordinater för place¬ 
ring av figurerna. 

Välj ljust fyllmönster med kryss. 

Rita en rektangel. 

Rita ett rätblock med ovansida. 

Rita ett rätblock utan ovansida. 
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Exempel 5.28 


Programmet ritar först sex koncentriska cirklar. Därefter ritas sex cirkelbågar 
resp sex ellipsbågar där medelpunktsvinkeln ökats med 60° för varje båge. 


program Cirklar; 
uses Crt,Graph; 

var 

graphDriver, 
graphMode, 

maxX,maxY : integer; 

ch : char; 

x,y, 

i,vinkel, 

eX,eY : integer; 

begin 

graphDriver:=detect; 
InitGraph(graphDriver,graphMode, ''); 
if GraphResultOgrOk then 
Halt(1); 
maxX:=GetMaxX; 
maxY:=GetMaxY; 





SetColor(GetMaxColor); 


eX:=maxX div 50; 
eY:=maxY div 20; 

x:=maxX div 4; 
y:=maxY div 2; 
for i:=1 to 6 do 

Circle(x,y,i*eX); 

x:=maxX div 2; 
vinkel:=60; 

for i:=1 to 6 do begin 

Arc(x,y,0,vinkel,i*eX); 

Inc(vinkel,60); 

end; 

x:=x+maxX div 4; 
vinkel:=60; 

for i:=1 to 6 do begin 

Ellipse(x,y,0,vinkel,i*eX,i*eY); 
Inc(vinkel,60); 

end; 


Ökning av radien i x-led. 

Ökning av radien i y-led. 

Beräkna cirkelns medelpunkt (x,y). 

Rita sex cirklar med successivt större 
radier. 

Beräkna ny x-koordinat för cirkelbågarna, 
Variabeln vinkel står för slutvinkeln. 
Rita sex cirkelbågar ifrån x-axeln med 
radien i*eX. 

Öka slutvinkeln med 60°. 


Beräkna ny x-koordinat för ellipsbågarna 
Låt slutvinkeln vara 60°. 

Rita sex ellipsbågar ifrån x-axeln med 
x-axeln i*eX och y-axeln i*eY. 
öka slutvinkeln med 60°. 


ch:=ReadKey; 
CloseGraph; 

end. 


5.3.5 Grafikfönster. 

Grafikfönster fungerar på samma sätt som textfönster, se avsnitt 5.1.6. 

Den enda skillnaden är att grafikfönster hanteras med andra instruktioner och 
att intervallen för x- och y-koordinater är större. 


Några detaljer förtjänar att påpekas. 


Så länge man inte definierat något fönster utgör det aktuella fönstret hela 
skärmen. 

Till skillnad från textfönster har det övre vänstra hörnet koordinaterna (0,0). 
Liksom för textfönster ökar x-koordinaterna åt höger på skärmen och y-koordina- 
terna nedåt på skärmen. 

(0,0) (GetMaxX,0) 


(40,40) skärmkoordinater för fönstret 
1 (0,0) fönsterkoordinater 


skärmkoordinater för fönstret (160,160) 

(0,GetMaxY) (GetMaxX,GetMaxY) 


Alla rutiner där man ritar något i grafisk mod är fönsterrelaterade, dvs alla 
koordinater räknas i förhållande till det aktuella fönstrets övre vänstra hörn. 


ClearDevice 

Med denna instruktion tömmer man hela skärmen. Grafikmarkören placeras i punkten 
(0,0) i det aktuella fönstret. 

Syntax: ClearDevice; 


SetViewPort 

Med denna instruktion definieras aktuellt fönster. Till instruktionen hör två 
konstanter 


clipOn med värdet true och 
clipOff med värdet false. 

Syntax: SetViewPort(x1,y1,x2,y2,clipOn); 

Koordinaterna för fönstrets övre vänstra hörn är (x1,y1) och för det nedre högra 
hörnet (x2,y2). 

Med det sista argumentet bestämmer man om "klippning" skall göras i det aktuella 
fönstret eller ej. Detta innebär att om man försöker rita en linje, där en del 
av linjen går utanför fönstret, så visas inte denna del av linjen. 

Anger man clipOn så klipps grafikutskrifter i det aktuella fönstret. Motsatsen 
erhålles med clipOff. 


81 



Obs! Även om man har valt att klippning skall göras i det aktuella fönstret och 
man ritar utanför fönstret, så uppdateras grafikmarkören till den sista punkt 
som man försöker rita utanför fönstret. 


ClearViewPort 


Med denna instruktion töms det aktuella fönstret i den färg som är bakgrunds¬ 
färg . 

Syntax: ClearViewPort; 

Exempel 5.29 

I programmet ritas först en ram runt aktuellt fönster som är hela skärmen. 
Därefter ritas ett antal linjer slumpmässigt. Ett fönster definieras och tömmes 
varefter några cirklar ritas i fönstret så att klippning sker. 


program Wind; 
uses Crt,Graph; 
var 

graphDriver, 
graphMode, 

maxX,maxY : integer; 

ch : char; 

i,x1,y1,x2,y2, 
x,y : integer; 

begin 

graphDriver:=detect; 
InitGraph(graphDriver,graphMode, "); 
if GraphResultOgrOk then 
Halt(1); 
maxX:=GetMaxX; 
maxY:=GetMaxY; 

Rectangle(0,0,maxX,maxY); 
for i:=1 to 100 do begin 

SetColor(Random(GetMaxColor)+1); 

LineTo(Random(maxX),Random(maxY)); 

end; 

xl:=maxX div 8; 
yl:=maxY div 8; 
x2:=3*maxX div 5; 
y2:=3*maxY div 5; 
SetColor(GetMaxColor); 

Rectangle(x1-1,y1 —1,x2+1,y2+1); 

SetViewPort(x1,y1,x2,y2,clip0n); 
ClearViewPort; 

x:=(x2-x1); 
y: = (y2—y1 ); 



Rita en ram kring hela skärmen. 
Rita i slumpmässig färg 100 st 

linjer slumpmässigt. 

Beräkna lämpliga koordinater för 
fönstret. 


Rita en ram kring fönstret. 

Definiera fönstret och 
töm det. 

Beräkna fönstrets bredd och 
höjd. 

Rita i slumpmässig färg 20 st 
cirklar slumpmässigt. 


for i:=1 to 20 do begin 

SetColor(Random(GetMaxColor)+1); 
Circle(Random(x),Random(y),Random(100)); 

end; 


ch:=ReadKey; 
CloseGraph; 

end. 
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5.3.6 Utskrift av text i grafikmod. 

Det är möjligt att skriva ut text i grafikmod. Man kan välja mellan olika text¬ 
typer, sk fonter, skriva ut tecknen i olika storlekar och riktningar mm. 

Fonter. 

Man har fem olika fonter att tillgå, en standardfont och fyra andra, som finns i 
speciella filer med extension CHR. Om man vill använda någon av de speciella 
fonterna måste motsvarande CHR-fil finnas i det bibliotek som programmet körs 
från. Till fonterna är knutna vissa fördeklarerade konstanter. 

Namn Värde 

defaultFont 0 Standardfonten. Denna är alltid tillgänglig i grafisk mod. 

triplexFont 1 

smallFont 2 

sansSerifFont 3 

gothicFont 4 

Man väljer textfont med instruktionen SetTextStyle. Se nedan. 

Textriktning 

Förutom olika textstilar kan man välja två riktningar på textutskriften. Till 
dessa riktningar finns två fördeklarerade konstanter: 

Namn Värde Beskrivning 

horizDir 0 Texten skrivs ut från vänster till höger. 

vertDir 1 Texten skrivs ut nerifrån och upp. 

Textstorlek 

Man kan skriva ut texten i olika storlekar ner till en minsta storlek, normSize. 
Detta är en fördeklarerad konstant med värdet 1. 

För att underlätta radframmatningar etc vid utskrift av text i grafik, finns det 
två rutiner med vars hjälp man kan avgöra den aktuella textens storlek: 

TextHeight 

Syntax: hojd:=TextHeight( 'HOJD '); 

Man anger en godtycklig textsträng t ex 'H' varvid TextHeight returnerar höjden 
av ett tecken i y-led på skärmen räknat i pixel. 

TextWidth 

Syntax: bredd:=TextHeight( 'BREDD'); 

Man anger en godtycklig textsträng t ex 'B' varvid TextWidth returnerar bredden 
av ett tecken i x-led på skärmen räknat i pixel. 

SetTextStyle 

Med denna instruktion väljer man textstil, textriktning och textstorlek. 

Syntax: SetTextStyle(defaultFont,horizDir,normSize); 
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Då en grafikmod valts med InitGraph, så är inställningen ovan automatiskt den 
som gäller, dvs standardfont, utskrift från vänster till höger i den minsta 
textstorleken. 


Placering av den grafiska texten. 

Eftersom ett tecken upptar flera grafiska positioner måste man specificera hur 
utskriften av texten skall ske i förhållande till en grafisk punkt. 

Man kan t ex ange att textens vänstra sida, dess övre kant skall börja skrivas 
ut i en viss punkt eller så kan man ange att texten skall centreras kring en 
viss punkt, både på höjden och bredden. 

Det finns några fördeklarerade konstanter som underlättar hanteringen av detta. 

Namn Värde Textdel Namn Värde lextdel 

leftText 0 vänstra sidan bottomText 0 nedre textkanten 

centerText 1 mittpunkten i sidled centerText 1 mittpunkten i höjdled 

rightText 2 högra sidan topText 2 övre textkanten 

Obs! Beskrivningen av textkonstanterna gäller alltid textens utseende på skär¬ 
men. Om man t ex skriver i riktningen vertDir, dvs nerifrån och upp, menas med 
rightText den del av texten som syns längst till höger på skärmen, och med 
bottomText den del av texten som syns längst ner på skärmen ! 


SetTextJustify 

Med denna instruktion väljer man hur texten skall placeras i förhållande till en 
viss grafisk punkt. 

Syntax: SetTextJustify(leftText,topText); 

Då en grafikmod valts med InitGraph, så är inställningen ovan automatiskt den 
som gäller, dvs textens vänstra, övre hörn placeras i den angivna grafikpunkten. 


Exempel. Instruktionerna nedan placerar 


nedanstående textdel: 


SetTextJustify(leftText,topText); 
SetTextJustify(rightText,bottomText); 
SetTextJustify(centerText,centerText) 


vänstra, övre hörnet 
högra, nedre hörnet 
mittpunkten, både i x- och y-led 


i en viss angiven grafisk punkt om riktningen är horizDir. Jämför exemp¬ 
let till tabellen över konstanter ovan. 


OutTextXY 

Syntax: OutTextXY(x,y,txt); 

Instruktionen placerar texten txt med början i punkten (x,y). Grafikmarkören 
påverkas ej. 

OutText 

Syntax: OutText(txt); 

Instruktionen placerar texten txt med början där den grafiska markören befinner 
sig. Grafikmarkören flyttas med motsvarande antal pixel som texten upptar i tex¬ 
triktningen om inställningen är horizDir och leftText, annars påverkas den ej. 
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Obs! Instruktionerna ovan kan endast skriva ut textsträngar. Om du vill ha ett 
talvärde utskrivet med dessa instruktioner måste du först omvandla talvärdet 
till en sträng. Hur man gör detta behandlas i kapitlet om strängar (se Str). 

Obs! Dessa båda rutiner använder sig av den inställning som är bestämd med inst¬ 
ruktionen SetlextJustify. Normalt placeras det vänstra, övre hörnet av den ruta, 
som ett tecken upptar, i positionen (x,y) eller där grafikmarkören befinner sig. 


Exempel 5.30 


I programmet nedan skrivs texten först ut från vänster till höger och sedan 
nerifrån och upp. Texten skrivs ut i tre olika storlekar för var och en av de 
fem fonterna. Här kan du studera hur man kan använda instruktionerna SetTextJus- 
tify, SetTextStyle, TextWidth och TextHeight. 


program TextIGrafik; 
uses Crt,Graph; 

var 

graphDriver, 
graphMode, 

maxX,maxY : integer; 

ch : char; 

x,y,font, 

dir,storlek : integer; 

begin 

graphDriver:=detect; 
InitGraph(graphDriver,graphMode, "); 
if GraphResultOgrOk then 
Halt(1)j 


»torirk ~ 1 
äiortrh = a 
äinrlrk = 3 
Qlryrh EMEiEiS 


for dir:=horizDir to vertDir do 

for font:=defaultFont to gothicfont do begin 
ClearDevice; 

case dir of 
horizDir: begin 
x: = 10; 
y: =0; 

SetTextJustify(leftText,topText); 

end; 

vertDir: begin 
x: = 10; 
y:=maxY; 

SetTextJustify(leftText»bottomText) 

end; 

end; 

for storlek:=1 to 3 do begin 

SetTextStyle(font,dir,storlek); 
OutTextXY(x,y,'Storlek = '+Chr(Storlek+48)) 

case dir of 

horizDir : Inc(y,TextHeight( 'H ')+25); 
vertDir : Inc(x,TextWidth( 'B ')+25); 
end; 
end; 

OutTextXY(x,y,'Tryck . ENTER'); 
ch: =ReadKey; 

end; 

CloseGraph; 

end. 


Skriv texten horison¬ 
tellt, sedan vertikalt. 
För font nr 0 till nr 4. 
Rensa grafikskärmen. 

Skriv text i förhållande 
till (x,y). 

Om riktningen är horizDir 
så börja i (10,0) 

med textens vänstra, övre 
hörn. 

Om riktningen är vertDir 
så börja i (10,maxX) 

med textens övre, vänstra 
hörn 

Skriv i tre storlekar. 
Välj textstil. 

Skriv ut texten. 

Gör "radframmatning" 
i y-led eller 
i x-led. 


ENTER ger nästa font. 
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Exempel 5.31 


I programmet nedan ritar vi en räknare och använder då bl a instruktioner för 
fönster, för att fylla rutor och för att skriva ut text. Vi har här förutsatt 
att du kan använda färgen lightGray. Om så inte är fallet får du byta den mot 
någon annan lämplig färg. 


program Calculator; 
uses Crt,Graph; 

var 

graphDriver, 
graphMode, 

maxX,maxY : integer; 

ch : char; 


xl,y1,x2,y2, 
dx,dy, 

wxl,wyl,wx2,wy2 : integer; 
sida,i,j , 

y,x : integer; 

knappar : string[20]; { Vi deklarerar en textsträng så här } 

{ jämför avsnitt 6.1.2. } 

begin 

graphDriver:=detect; 

InitGraph(graphDriver,graphMode, ''); 
if GraphResultOgrOk then 
Halt(1); 
maxX:=GetMaxX; 
maxY:=GetMaxY; 


knappar : = '789CQ456x/123+-0.E=M'; 

xl:=maxX div 3; 
x2:=2*maxX div 3; 
yl:=maxY div 16; 
y2:=15*maxY div 16; 
dx: =x2-x1; 
dy: =y2-y1; 

wx1:=x1+dx div 16; 
wx2:=x2-dx div 16; 
wyl:=y1+dy div 5; 
wy2:=y1+dy div 4; 

SetColor(GetMaxColor); 

Rectangle(xl-1,yl-1,x2+1,y2+1); 

SetTextJustify(leftText,topText); 
SetColor(lightGray); 

OutTextXY(xl+2,wyl div 2, 

'Casio Fx 4.0 Computerized'); 

Rectangle(wxl-5,wy1-5,wx2+5,wy2+5); 
Rectangle(wx1-1,wy1-1,wx2+1,wy2+1); 

SetColor(GetMaxColor); 

SetTextJustify(rightText,centerText); 
0utTextXY(wx2,(wy1+wy2) div 2,'0.'); 


Strängvariabeln knappar inne¬ 
håller texten till knapparna. 
Beräkna koordinater för räk¬ 
narens hörn. 


Räknarens bredd 
och höjd. 

Beräkna koordinater för räkna 
rens fönster. 


Rita räknarens sidor. 

Ställ in texten och 

skriv ut namnet på räknaren. 


Rita räknarens fönster, 


och skriv ut en nolla i fönst 
ret. 
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SetViewPortCwxl,wy2+dy div 16,wx2,y2,clip0n) 
SetFillStyle(solidFill,lightGray); 
SetColor(lightGray); 
sida:=dx div 18; 


y:=sida div 2; 
for i:=1 to 3 do begin 
x:=sida div 2; 
for j:=1 to 6 do begin 

Bar(x,y,x+sida,y+sida); 

Inc(x,3*sida); 

end; 

Inc(y,2*sida); 

end; 

SetViewPort(wx1,wy2+dy div 4,wx2,y2,clip0n); 
SetTextJustify(centerText,centerText); 
SetColor(GetMaxColor); 
SetFillStyle(closeDotFill,lightGray); 

sida:=dx div 9; 
y:=3*sida div 4; 
for i:=1 to 4 do begin 
x:=sida div 2; 
for j:=1 to 5 do begin 
Bar(x,y,x+sida,y+sida); 

OutTextXY(x+sida div 2,y+sida div 2, 
knappart 5*(i-1)+j]); 
Inc(x,3*sida div 2); 
end; 

Inc(y,3*sida div 2); 
end; 


Definiera ett grafiskt fönster 
för rita ett antal gråa knap¬ 
par . 

Bestäm knappens sida. 
Koordinaterna för det övre 
vänstra hörnet på en knapp är 

(x,y). 

Börja i en "halv knapp" in i 
fönstret och rita tre rader 

med sex knappar i varje rad. 
Rita knappen 

Räkna fram x-koordinaten. 

Räkna fram till nästa rad. 


Definiera ett grafiskt fönster 
för att rita siffertangenter- 


Bestäm knappens sida. 

Börja en bit in i fönstret och 
rita fyra rader 

med fem knappar i varje rad. 
Rita knappen och 
texten på knappen. 

Jämför sid 100, enstaka tecken 
Räkna fram x-koordinaten. 

Räkna fram till nästa rad. 


ch:=ReadKey; 
CloseGraph; 

end. 



Utskrift från exempel 5.3.2 
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5.3.7 Simulering av rörelse. 

Vi avslutar grafikkapitlet med två programexempel på animation. 

Exempel 5.32 Studsande boll i en låda. 

Programmet är försett med löpande kommentarer. Vi går inte närmare in på de 
beräkningar som görs - den som är fysikaliskt bevandrad och behärskar sin teor 
kan ta det som en övning att verifiera att bollen beskriver en kaströrelse. 


program MedStudsI; 
uses Crt,Graph; 

var 

graphDriver, 
graphMode, 

maxX,maxY : integer; 

x,y, 
r, 

xhast, 
yhast, 
yacc, 

xl,xr,t,yb, 
maxYhast, 

color : integer; 


{ Koordinater för bollen } 
{ Bollens radie } 
{ Hastighet i x-led } 
{ Hastighet i y-led } 
{ Acceleration i y-led } 


{ Dessa variabler definieras längre ner } 


begin 

graphDriver:=detect; 
InitGraphCgraphDriver,graphMode,''); 
if GraphResultOgrOk then 
Halt(1)} 
maxX:=GetMaxX; 
maxY:=GetMaxY; 


r:=5; { Initiera utgångsvärden } 

xhast:=5; 
yhast:=0; 

yacc: =2; { Måste vara ett jämnt tal } 

{ Beräkna lådans mått } 

{ xl är x-koordinat för vänster vägg } 
{ xr är x-koordinat för höger vägg } 
{ t är antalet tidsenheter = varv i } 
{ loopen innan bollen slår i golvet } 
{ yb är y-koordinat för golvet } 

{ maxYhast är ny y-hastighet då bollen } 
{ slagit i golvet } 

xl: =2; 

xr:=((maxX-2*(xl+r+1)) div xhast)*xhast+xl+2*(r+1); 
t:=Trunc((Sgrt(8*(maxY-r-1)/yacc+1)-1)/2); 
yb: = (yacc div 2)*t*(1+t)+r; 
maxYhast:=-yacc*t; 


y:=0; 

x:=xl+r+1; 


{ Utgångsposition för bollen 


} 


MoveTo(xl,0); { Rita lådan } 
LineTo(xl,yb); { Vänster vägg } 
LineTo(xr,yb); { Golv } 
LineTo(xr,0); { Höger vägg } 

{ Skriv ut text } 
SetTextJustify(centerText,topText); 


OutTextXY(maxX div 2,0,'Programmet med studs i 
OutTextXY(maxX div 2,TextHeight('a'), 

'avslutas om tangent trycks ned.'); 


repeat { Upprepa följande } 

if y=yb-r then begin { Om bollen slår i golvet } 

yhast:=-yhast; { vänd på y-hastigheten. } 

if yhast=0 then { Ligger den stilla så } 

yhast:=maxYhast; { ge den en hastighet uppåt. } 

end; 

if (x>xr-r-1) or { Om bollen slår i höger vägg eller } 

(x<xl+r+1) then begin { i vänster vägg så } 

xhast:=-xhast; { vänd på x-hastigheten } 

x:=x+xhast; { och beräkna ny x-koordinat } 

end; 

yhast:=yhast+yacc; { Öka hastigheten i y-led } 

{ Hastigheten i x-led är konstant } 

color:=GetMaxColor; { Rita bollen } 

SetFillStyle(solidFill,color); 

SetColor(color); 

Circle(x,y,r); 

FloodFill(x,y,color); 


Delay(20); { Vänta en stund } 

color:=black; { Sudda bollen } 

SetFillStyle(solidFill,color); 

SetColor(color); 

Circle(x,y,r); 

FloodFill(x,y,color); 


y:=y+yhast; { Beräkna nya koordinater } 

x:=x+xhast; 

until KeyPressed; { tills tangent trycks ner } 

CloseGraph; 

end. 


Exempel 5.33 Svängande pendel. 

Fysikintresserade med kunskaper i fysik från årskurs 3 i gymnasiet kan försöka 
verifiera riktigheten av de beräkningar som görs i programmet. 

Vi lämnar detta därhän och konstaterar bara att det är ett trevligt exempel på 
vad som kan åstadkommas med några grafikrutiner. 
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program Pendel; 
uses Crt,Graph; 

var 

graphDriver, 
graphMode, 

maxX,maxY : integer; 

ch : char; 

xorig,yorig, 

x,y, 

oldx,oldy, 

l,r : integer; 

v,vO,w,t,g : real; 

begin 

graphDriver:=detect; 
InitGraph(graphDriver,graphMode, ''); 
if GraphResultOgrOk then 
Halt(1); 
maxX:=GetMaxX; 
maxY:=GetMaxY; 

SetColor(yellow); 

SetFillStyle(xhatchFill,lightblue); 



xorig:=maxX div 2; 
yorig:=20; 
l:=maxY-40; 
r: =20; 

v0:=35/180*pi; 
g:=9.81; 
w:=sqrt(g/l); 
t: =0; 


Punkten (xorig,yorig) är pendelns upphäng- 

ningspunkt 

Pendelns längd = 1 

Pendelskivans radie = r 

Maximala utslagsvinkeln vO = 33° 

Tyngdkraftsaccelerationen g 

Vinkelhastigheten w 

Tiden t 


v:=v0*sin(w*t+pi/2); 
x:=xorig+Round(l*v); 
y:=yorig+Round(l*(1-v*v/2)); 
oldx: =x; 
oldy:=y; 


Pendelns hastighet v 

Punkten (x,y) är pendelskivans medelpunkt 

Koordinaterna oldx och oldy används för att 
lagra pendelskivans föregående medelpunkt 


t:=t+0.25; 

while not KeyPressed do begin 
v:=v0*sin(w*t+pi/2); 
x:=xorig+Round(l*v); 
y:=yorig+Round(1*(1-v*v/2)); 
SetColor(brown); 

Line(xorig,yorig,oldx,oldy); 
Circle(oldx,oldy ,r); 

oldx: =x; 
oldy:=y; 

SetColor(GetMaxColor); 
Line(xorig,yorig,oldx,oldy); 
Circle(x,y,r); 


Pendeln ritas ut med 0.23 tidsenheters mel¬ 
lanrum 

Medan tangent ej tryckts ner gör följande 
Beräkna ny hastighet och 

nya koordinater för pendelskivans medelpunkt 

Sudda (rita) vid föregående tidpunkt en 
linje i brun färg från upphängningspunkten 
till skivans medelpunkt och pendelskivan i 
samma färg 

Lagra pendelskivans nya läge 
Rita ny pendel 


t:=t+0.25; 

end; 


Räkna upp tiden 


ch:=ReadKey; 
CloseGraph; 

end. 
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6 Datatyperna string och array 

I det här kapitlet skall vi behandla några datatyper som till skillnad från dem 
vi stött på tidigare är av ett mera sammansatt slag - strängar och arraystruk- 
turer. 

Vi behandlar först datatypen string. Någon egentlig stränghantering finns inte i 
standard Pascal. Strängar kan i standard Pascal endast lagras i form av tecken- 
vektorer. Begreppet vektorer diskuterar vi närmare i avsnittet om arraystruktu- 
rer. 


6.1 Tecken. 

Allteftersom behovet av interaktiva program vuxit - program där en dialog förs 
mellan användaren och programmet - har också behovet av en smidig stränghante¬ 
ring ökat. 

I Turbo Pascal liksom i många andra Pascaldialekter har man därför infört data¬ 
typen string. En sträng består av en följd av tecken och det kan därför vara på 
sin plats att först rekapitulera vad som sagts om datatypen char. 


6.1.1. Datatypen char. 

I Pascal lagras tecken i variabler av en speciell datatyp, typen char. 

Exempel på variabeldeklaration: 

var tecken, 

svar : char; 

En variabel deklarerad med datatypen char kan bara innehålla ett tecken. 

Tilldelning kan göras t ex med ett konstantuttryck eller med en Readln-sats: 

tecken: = 'B 
Readln(svar); 

Svarar man i Readln-satsen 'Ja', kommer variabeln svar att få värdet 'J'. 

Att tecken kan jämföras med varandra med relationsoperatorerna <, >, = etc, 
beror på att varje tecken har ett visst ordningsnummer enligt någon tabell. 

Den tabell som vanligen används är den sk ASCII-tabellen (se appendix C). Ord- 
ningsnumret för ett tecken är helt enkelt uppräkningsnumret i tabellen. 

När ett tecken lagras i datorn är det ordningsnumret som lagras. 

Ord 

Ordningsnumret för ett visst tecken kan erhållas med hjälp av den i Pascal för¬ 
definierade funktionen Ord: 

Ord('A') (returnerar heltalet 65) 


Chr 

Man kan också göra motsatsen med hjälp av funktionen Chr, dvs ge ordningsnumret 
för ett tecken och erhålla tecknet självt: 

Chr(65) ( returnerar tecknet 'A') 
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Exempel 6.1. 


program Halsa; 
var svar:char; 

begin 

Write('Mår du bra? (Ja/Nej) '); Endast första bokstaven 

Readln(svar); läses in variabeln svar 

case svar of 

: Writeln( 'Det var ju bra.'); I case-satsen är det tillå- 

'n','N' : Writeln('Det var ju tråkigt.'); tet med semikolon före 

else WritelnC'Det var väl inget svar.'); else. Det fungerar även 

end; utan semikolon. 

end. 

6.2. Strängar. 

Någon strängtyp finns inte i standard Pascal. Avsnittet här om strängar gäller i 
många detaljer endast för Turbo Pascal. 

6.1.2 Datatypen string. 

Ord och texter består ju av en följd av tecken och lagras i speciella variabler, 
strängvariabler, av datatypen string, som är speciell för Turbo Pascal. 

Deklaration av strängvariabler. 

Exempel 6.2 

Vi ger här några exempel på hur man kan deklarera strängvariabler. 

var namn : string[20]; 
hund : string[lO]; 

katt : string; (I Turbo Pascal ver 3.0 måste man ange string[235] ) 

Talet inom [ och ] talar om hur många tecken strängen skall kunna innehålla. 
Anger man inte någon maximal längd underförstår man, att den kan vara 255 tecken 
lång. 

I exemplet ovan innehåller alltså variabeln 

namn högst 20 tecken, 
hund högst 10 tecken, 
katt högst 255 tecken. 

I stället för tecknen [ och ] kan man använda (. resp .), dvs man kan skriva 
var namn : string(.20.) ; 

I Turbo Pascal kan en sträng innehålla maximalt 255 tecken. Om strängen inte in¬ 
nehåller några tecken säger vi att strängen är en 'tom sträng'. 

Deklaration av strängkonstanter. 

Exempel 6.3 

Några konstantsträngdeklarationer. 

const språk ='Pascal'; 
dialekt= 'Turbo'; 


Strängtilldelning. 


Man tilldelar en strängvariabel ett värde på samma sätt som man tilldelar t ex 
en talvariabel ett värde. 

Exempel 6.4 

namn: = 'Anna '; 
hund: = 'Fido'; 
katt: = 'Skrållan'; 

Om man försöker tilldela en strängvariabel ett stränguttryck, som innehåller 
fler tecken än vad strängvariabeln kan innehålla, så kommer överskjutande tecken 
att klippas av, trunkeras. 

Om strängvariabeln namn deklarerats till maximalt 20 tecken, kommer efter till¬ 
delningen 

namn: ='Turbovägen till Pascal'; 
variabeln namn att innehålla värdet 'Turbovägen till Pasc'. 

Tilldelning av en strängvariabel kan också ske med en Readln-sats. 

Exempel 6.5 
program Namn; 

var fornamn, efternamn : string[30]; 
begin 

Write( 'Vad heter du i förnamn? '); 

Readln(fornamn); 

Write('Vad heter du efternamn? '); 

Readln(efternamn); 

Write('Hej ',fornamn,' ',efternamn,'.'); 

end. 

I programmet läses först in två strängar i variablerna fornamn och efternamn, 
därefter skrivs de båda variablerna ut med en Write-sats. 


Enstaka tecken i en sträng. 

Man kan komma åt ett enskilt tecken i en sträng genom att man anger ett index, 
dvs numret på tecknet i strängen. Efter tilldelningarna 

work: ='programmering '; Iwork ges värdet av konstantsträngen programmering, 
tecken:=work[4]; |Tecken nummer fyra plockas ut ur strängen. 

kommer variabeln tecken, som är av typen char, att innehålla tecknet 'g'. 

Direkta tilldelningar av enskilda teckenelement i en sträng kan också göras. 

De enskilda teckenelementen, work[l], work[2] etc, är alltså att betrakta som 
teckenvariabler av datatypen char. Efter exekveringen av satsen: 

work[5]: = '1 '; 

kommer work att innehålla texten 'proglammering'. 
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Exempel 6.6 

Man kan i Turbo Pascal ver 4.0 inte tilldela en variabel av datatypen char vär¬ 
det av en sträng även om strängen har längden ett. Detta är möjligt i tidigare 
versioner. 

program Kompatibilitet; 
var kortnamn : string[1]; 

tecken : char; 
begin 

kortnamn := 'A'; 
tecken:=kortnamn[1]; 
tecken:=kortnamn; 

end. 

Som vi ser av den korrekta satsen ovan, går det däremot alldeles utmärkt att 
tilldela en variabel av datatypen char värdet av ett strängelement. 


{ Denna sats är korrekt } 

{ Denna sats ger kompileringsfel } 


Aktuell stränglängd. Strängfunktionen Length. 

När vi talar om längden av en sträng menar vi det antal tecken som strängen 
verkligen innehåller, den aktuella stränglängden. Längden kan vara ett tal all¬ 
tifrån talet noll upp till den maximalt deklarerade stränglängden. 

Length 

Denna rutin returnerar den aktuella stränglängden. 

Syntax: l:=Length(namn); 

Här kan namn vara ett godtyckligt stränguttryck. Returvärdet är av heltalstyp. 


Exempel 6.7 

Test av stränglängd. 

program NamnLen; 

var namn:string; 
begin 

Write( 'Vad heter du? '); 

Readln(namn); 

Writeln('Du har ' ,Length(namn), ' bokstäver i ditt namn!'); 

end. 


Den aktuella stränglängden ligger lagrad i element noll, namn[0]. Observera att 
även detta element är av datatypen char. Längden överförs till integerformat 
genom t ex 

langd:=0rd(namn[0]); 

Som framgår av exemplet ovan åstadkommer vi detta enklare med satsen 
langd:=Length(namn); 
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Strängjämförelser. 

Strängar kan jämföras med varandra med relationsoperatorerna = , > etc ungefär 
som man jämför talvariabler med varandra. 

Antag att vi har gjort tilldelningarna 

workl: = 'programmering'; 
work2:= 'undervisning'; 

För att avgöra om work1>work2 jämförs strängarna tecken för tecken, dvs ord- 
ningsnummerna för tecknen jämförs. Jämför avsnitt 6.1.1. 

Om tecknen i workl tar slut innan olikhet inträffar anses workl vara mindre än 
work2. 


Exempel 6.8 

program Ordning; 

var workl, work2 : string; 
begin 

Write('Vad arbetar du med? '); 

Readln(work1); 

Write('Vad arbetar du annars med? '); 

Readln(work2); 

Writeln; 

Write('Arbetena i bokstavsordning: '); 
if workl < work2 then 

Writeln(work1, ' är mindre än ',work2) 
else Writeln(work2, ' är mindre än ',workl); 

end. 

Man bör observera att stora och små bokstäver inte har samma värde. Exempelvis 
är 'Anna' mindre 'anna'. 


Pos 

Med denna strängfunktion kan man göra mera avancerade strängjämförelser - man 
kan undersöka om en viss bokstavskombination, delsträng, förekommer i ett större 
stränguttryck och i så fall var. 

Syntax: p:=Pos(del,s); 

Funktionen returnerar den första position i stränguttrycket s där delsträngen 
del förekommer. Returvärdet är av heltalstyp. Om delsträngen del inte förekommer 
i stränguttrycket s returneras värdet noll. 


Exempel 6.9 


Antag att variabeln s har värdet 'programmering'. Då ger 


Pos( 'ring ' ,s); 
Pos( 'gram ',s); 
Pos( 'Prog ',s); 


värdet 10 
4 

0 eftersom 


inte finns i 'programmering'. 
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Några rutiner för stränghantering. 

Vi har redan sett exempel på några rutiner för stränghantering i form av de 
olika relationsoperatorerna och nu senast de båda rutinerna Length och Pos. I 
Turbo Pascal finns det ytterligare sådana. 

Concat eller + operatorn. 

Med hjälp av denna funktion kan man slå ihop två strängar med varandra. 

Syntax: s3:=Concat(s1,s2); 

s3:=s1+s2; 

Här kommer strängvariabeln s3 att innehålla sammanslagningen av de två sträng¬ 
uttrycken si och s2. Funktionen är inte begränsad till två stränguttryck utan 
man kan slå ihop godtyckligt många. 

Om resultatet av sammanslagningen innehåller fler tecken än vad resultatvaria¬ 
beln kan rymma, så trunkeras överskjutande tecken. Jämför tilldelning av en 
strängvariabel. 

Resultatet kan aldrig överstiga 233 tecken. 

Exempel 6.10 

Om strängvariabeln s har värdet 'Eve', så kommer sammanslagningarna 

s+' likes Adam' att ge 'Eve likes Adam' 

'Adam likes '+s 'Adam likes Eve' 


Copy 

En annan mycket användbar rutin är funktionen Copy, med vars hjälp man kan 
kopiera en del av ett stränguttryck. 

Syntax: kopia:=Copy(s,p,n); 


Här returnerar Copy den del av stränguttrycket s som börjar i teckenposition p 
och som är n tecken lång. Både p och n är av heltalstyp. 

Exempel 6.11 


Om strängvariabeln s har 
tecken ger 

Copy(s,1,5); 
Copy(s,17,6); 
Copy(s, 17,100); 
Copy(s,100,5); 
Copy(s,300,5); 


värdet 'Turbovägen till 


Pascal', dvs innehåller 22 


delsträngen 'Turbo' 

'Pascal' 

'Pascal', de fem sista tecknen returneras 
'', dvs en tom sträng, eftersom p>22. 
ger exekveringsfel, eftersom p>255. 


Som framgår av exemplet returneras en tom sträng om p är större än längden av s. 
0m man försöker kopiera tecken som ligger utanför s returneras endast de tecken 
som ligger inom s. 

0m p ligger utanför tillåtet strängintervall 1..255 får man exekveringsfel. 
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Exempel 6.12 

I programmet läses in efternamn och förnamn separerade med ett komma i en 
sträng. Namnen separeras och skrivs ut var för sig. 

program Delatlpp; 

var p,l : integer; 

namn, fornamn, efternamn : string; 
begin 

Writeln('Ange ditt efternamn och förnamn, separerade med ett komma'); 
Readln(namn); 
p:=Pos( ', ',namn); 

1:=Length(namn); 

if 1=0 then 

Writeln('Du har ju varken för- eller efternamn!') 

else if p=0 then 

Writeln('Här finns inget komma!') 

else if p=1 then 

Writeln('Du har ju inget efternamn!') 

else if p=l then 

Writeln('Du ha ju inget förnamn!') 

else begin 

efternamn:=Copy(namn,1,p-1); 
fornamn:=Copy(namn,p+1,1-p); 

Writeln('Ditt förnamn är ',fornamn,' och ditt efternamn är ',efternamn); 

end; 

end. 


Obs! Else tillhör föregående if-sats. 

Insert 

Med denna strängrutin kan man skjuta in ett stränguttryck i en strängvariabel på 
en viss position. 

Syntax: Insert(del,s,p); 

Här kommer stränguttrycket del att skjutas in i strängvariabeln s på position p 
som är ett heltalsuttryck. 

Exempel 6.13 

Om strängvariabeln s har värdet 'AdamEve' kommer s att efter satserna 

Insert( ' likes ',s,5); ha värdet 'Adam likes Eve' 

Insert( 'm' ,s,1); 'mAdamEve ' 

Insert( ' är inget namn',s,100); 'AdamEve är inget namn' 


Av den sista satsen framgår, att om p är större än längden av s, så läggs 
strängarna ihop, dvs s:=s+del. 

Det gäller vidare, att om den resulterande strängen blir större än 233 tecken, 
så avkortas den till 255 tecken. 

Om p ligger utanför strängintervallet 1..255 får man exekveringsfel. 
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Delete 


Med denna rutin kan man ta bort ett eller flera tecken från en strängvariabel. 
Syntax: Delete(s,p,n); 

Här kommer n stycken tecken att tas bort från strängvariabeln s med början i 
position p. Både p och n är heltalsuttryck. 


Exempel 6.14 


Om strängvariabeln s har värdet 'furbovägen till Pascal', så kommer s att efter 
satserna 


Delete(s,6,10); 
Delete(s,100,10); 
Delete(s,6,100); 
Delete(s,400,10); 


ha värdet 'Turbo Pascal' 
oförändrat värde 
värdet 'Turbo' 

ger exekveringsfel. 


Är p större än längden av s tas inga tecken bort. 

Om delsträngen endast delvis ligger i s, tas bara de tecken som ligger i s bort. 
Ligger p utanför intervallet 1..255 får man exekveringsfel. 


Konverteringar mellan strängar och talvariabler. 

I Turbo Pascal har man möjlighet att omvandla ett talvärde till en sträng eller 
tvärtom. 

Val 

Omvandlar en sträng till ett talvärde. 

Syntax: Val(s,x,p); 

Variabeln x är av heltalstyp eller av typen real, medan p är en heltalsvariabel. 
Val omvandlar stränguttrycket s till ett talvärde, som lagras i variabeln x. Om 
konverteringen går bra, kommer variabeln p att få värdet noll. 

Uppstår något fel vid konverteringen, innehåller p den teckenposition i sträng¬ 
uttrycket s, som är felaktig. 


Exempel 6.15 Omvandling av en sträng till ett heltal. 

program StringToInt; 

var s : string; 

p : integer; 

begin 

Write('Ange en heltalssträng: '); 

Readln(s); 

Val(s,x,p); 

if p=0 then 

Writeln( 'Strängens talvärde är ',x) 

else begin 

Writeln('Detta är inget heltal!'); 

Writeln( 'Titta på tecken nummer ',p); 


end. 
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Str 


Med denna instruktion omvandlar man ett talvärde till en sträng. 

Syntax: Str(x,s); 

Här omvandlas taluttrycket x till en sträng som lagras i strängvariabeln s. 
Taluttrycket kan vara av heltalstyp eller av typen real. 

Strängen kan formateras vid omvandlingen precis som vid utskrift av talet på 
skärmen med en Write-sats. Man kan alltså ange vidden, antalet teckenpositioner, 
och antalet decimaler. 


Exempel 6.16 

Om uttrycket x har värdet 123.456, så kommer variabeln s efter 

Str(x:7:1,s) att innehålla värdet ' 123.5' 
Str(x:0:5,s) '123.45600' 

Str(x,s) '1.2345600000E+02' 


Exempel 6.17 

Omvandling av flyttal till en sträng. 

program RealToString; 

var s : string; 
x : real; 

begin 

Write('Ange något tal:'); 

Readln(x); 

Str(x:6:2,s); 

Writeln('Talet som en sträng med sex teckenpositioner'); 
Writeln('och två decimaler är ',s); 

end. 
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6.3 Array-strukturer. 

I avsnittet om strängar såg du hur man kunde lagra en följd av tecken i en 
strängvariabel. Datatypen string är egentligen ett specialfall av den mera gene¬ 
rella typen array. 

En array är en variabel, en lista, som är sammansatt av ett bestämt antal vari¬ 
abler, element, som alla måste vara av samma datatyp. 

Om vi tar en sträng som exempel, så är listan sammansatt av ett bestämt antal 
teckenvariabler, alla av typen char. 

Den stora skillnaden mellan en sträng och en array är att 

i en sträng lagras längden på plats noll, vilket aldrig görs i en array, 
i en sträng finns första elementet alltid på plats ett, vilket inte är nödvän¬ 
digt i en array, 

i en sträng är elementen alltid av datatypen char, vilket inte heller är nöd¬ 
vändigt i en array. 


6.3.1 Deklaration av array. 


Några exempel på array-deklarationer. 


var 

anna: array[l..20] of char; 
hund: array[6..13] of char; 
namn: array[l..10] of string[8]; 
htal: array[l..3] of integer; 
rtal: array[0..7] of real; 


Kan 

Kan 

Kan 

Kan 

Kan 


innehålla 

innehålla 

innehålla 

innehålla 

innehålla 


20 element av typen char 
10 element av typen char 
10 element av typen string[8] 
5 element av typen integer 
8 element av typen real 


Inom [ och ] anges början och slutet på den följd av index som varje element i 
variabeln skall kunna refereras med. Efter det reserverade ordet of anges den 
typ som dataelementen består av. 


I satsen 


var htal : array[l..5] of integer; 
deklareras en variabel htal, som består av fem element: 
htal[1 ], htal[2], htal[3], htal[4] och htal[5]. 


Dessa fem element är var för sig en heltalsvariabel som kan innehålla ett heltal 
t ex 


htalC1] 

htal[2] 

htal[3] 

htal[4] 

htal[5] 

23 


8 


10456 


45 | 

255 

index 1 

index 2 

index 3 

index 4 

index 


Man refererar till ett av dessa tal med ett index t ex 

Writeln(htal[1 ]); Skriver ut talet med index 1 på skärmen. 

htal[5]:=1000; Element nummer 5 tilldelas värdet 1000. 
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Exempel 6.18 

I programmet läses in fem heltal i en heltalsarray, varefter de skrivs ut. 

program HeltalsLista; 
var i : integer; 

tal : array[l..5] of integer; 

begin 

Writeln('Mata in fem heltal!'); 
for i:=1 to 5 do begin 
Write( 'Tal nr ',i, ': '); 

Readln(tal[i]); 

end; 

Writeln( 'Du har just nu matat in talen'); 

for i := 1 to 5 do 

Write(tal[i]:10); 

Writeln; 

end. 


Exempel 6.19 

I programmet läses först tio tal in i en heltalsarray. Sedan plockas det största 
och det minsta talet ut ur listan och skrivs ut. 


program MinMax; 

var tal : array[l..10] of real; 
i : integer; 
max, 

min : real; 

begin 

Writeln('Ange tio tal !'); 

Writeln; 

for i:=1 to 10 do begin { Läs in tio tal i en array } 

Write('Tal nr 
Readln(tal[i]); 

end; 

min:=tal[1 ]; 
max:=min; 

for i: =2 to 10 do begin 

if max < tal[i] then { Avgör vilket som är störst } 

max:=tal[i]; 

if min > tal[i] then { Avgör vilket som är minst } 

min:=tal[i]; 

end; 

Writeln; 

Writeln('Det minsta talet är ',min); 

Writeln('Det största talet är ',max); 

end. 


Den arraytyp som vi här har studerat är en sk endimensionell array. Man brukar 
kalla en sådan för en vektor. 


Allmän deklaration av en vektor: 

var vektornamn : array[ indexintervall] of elementtyp; 
Vektornamn är namnet på vektorn. 
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Indexintervall är det intervall, som index måste ligga inom. Index kan vara av 
heltalstyp, typerna char eller boolean. Då ett enskilt element refereras kan 
motsvarande index vara en variabel eller tom ett uttryck som skall beräknas. 

tal[i]:=100; 

Writeln(tal[i+5*j]); 

Elementtyp anger den datatyp, som alla de enskilda elementen består av. 

Datatypen kan vara vilken som helst av de datatyper som kan finnas i Pascal. 

I deklarationen 

var a : array[1..n] of char; 

måste n tidigare vara deklarerad som en konstant t ex 

const n = 1000; 


6.3.2 Likvärdiga vektorer. 

Betrakta deklarationen 

var a, b : array[l..10] of integer; 

Här är vektorn a likvärdig vektorn b och man kan göra en tilldelning 
a: =b; 

I deklarationen 

var a : array[l..10] of integer; 
b : array[l..10] of integer; 

anser man i Pascal att a och b ej är av samma typ! Man kan då inte heller göra 
tilldelningen 

a:=b; 

Tilldelning är den enda operation man kan göra på en hel vektor. 


6.3.3 Multidimensionella array-strukturer. 

Det finns också sk multidimensionella array-strukturer, matriser. 

Vi kommer här endast ge en kortfattad beskrivning. 

Ett exempel på en 2-dimensionell array utgör rutorna på ett schackbräde. 
(Bild av schackbräde med beteckningar) 


Raderna på ett schackbräde betecknas med siffrorna 1 till 8, medan kolumnerna 
betecknas med bokstäverna A till H. 

Vi kan säga att varje kolumn består av en vektor med åtta rutor, rutelement. 

Schackbrädet kan alltså sägas bestå av en vektor med åtta kolumnelement, där 
varje kolumnelement är en vektor med åtta rutelement. 
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Om vi låter ett rutelement, dvs en ruta, vara av typen char, kan vi deklarera en 
variabel bräde, som representerar schackbrädet på följande sätt: 

var bräde : array['A '..'H'] of 

array[l..8] of char; 

Detta är en matris (8x8-matris) som innehåller 64 element, rutor. Varje ruta är 
av typen char, dvs representeras av ett tecken som vi kan föreställa oss vara 
förkortningen för en schackpjäs. 

Det finns ett kortare skrivsätt för deklarationen ovan. Man kan skriva 

var bräde : array['A '..'H ',1..8] of char; 

En matris behandlas på samma sätt som en vektor. Den enda skillnaden är att vi 
måste ange mer än ett index när vi refererar till ett element. 

Exempel 6.20 tilldelning av matriselement. 

brade[ 'E ' ,4]: = 'B '; flytta vit bonde till E4. 

brade['E ',5]: ='b'; flytta svart bonde till E5. 

brade[ 'F ',3]:= 'S '; flytta vit springare till F3. 


I exemplet med schackbrädet är varje element av datatypen char. Varje element 
kan naturligtvis vara av vilken datatyp som helst. Till och med en ny vektor. 

Vi kan t ex deklarera en 3-dimensionell array genom 

var kub : array[ 1 .. 6 , 1 .. 6 , 1 . .6] of integer; 

som innehåller 6x6x6 = 216 heltalsvariabler. Vi kan tolka denna matris som ett 
antal punkter i rymden, där varje punkt har ett heltalsvärde. 

Man deklarerar matriser av godtycklig dimension på liknande sätt. 


6.4 Några programexempel. 

Vi avslutar kapitlet med några programexempel som vill visa på hur vektorer kan 
användas. 

6.4.1 Frekvenstabell. 

I de fall man arbetar med heltal och har en viss egenskap knuten till varje hel¬ 
tal, kan man låta heltalet representera index i en array och ha egenskapen lag¬ 
rad som värdet av motsvarande element. 

Antag att vi vill göra en frekvenstabell över vilken månad på året som eleverna 
i en klass är födda. Månaderna kan representeras av talen ett till tolv. 

Vi anger då för varje elev numret på månaden och avslutar inmatningen med månad 
noll. 

Vid varje inmatning testas om numret på månaden kan accepteras, annars ges en 
felutskrift. 

I programmet görs först i ordning en array a, där varje element nollställs. I 
det första elementet, a[l], lagras antalet elever som är födda i månad ett, 
januari. Elementet a[2] representerar februari osv. 

Vi läser en månad i taget och ökar motsvarande element med ett. 
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Exempel 6.21 

program Frekvens; 

var i,tal : integer; 

a : array[1..12] of integer; 


begin 

for i:=1 to 12 do { Ställer iordning en array } 

a[i]:=0; { Elementen nollställs, kan } 

Writeln('Ange månad! Avbryt med månad 0.'); { annars innehålla vilka tal} 

Writeln; { som helst } 

Write( 'Månad: '); 

Readln(tal); 

while talOO do begin 

if (tal<1) or (tal>12) then 

Writeln( 'Einns ingen sådan månad! ') 
else 

a[tal]:=a[tal]+1; 

Write( 'Månad: '); 

Readln(tal); 

end; 

Writeln( 'Erekvenstabell: '); 
for i:=1 to 12 do 
Writeln(i:2,a[i]:4); 

end. 


6.4.2 Sortering. 

Vi skall här behandla några enkla sorteringsalgoritmer, där man använder en 
array, som man lagrat data i. Eör enkelhets skull låter vi data här utgöras av 
heltal, men den kan naturligtvis lika väl bestå av strängar, flyttal etc. 


Insticksmetoden. 

Anta att vi har en array som består av fem heltal: 

nr 1 2 3 4 3 

värde 16 11 36 41 9 

När vi nu sorterar elementen kan vi betrakta element nr 1 som redan sorterat och 
de övriga osorterade. 

Vi tar nästa osorterade element (11) och jämför med det sista sorterade elemen¬ 
tet (16). Om det osorterade elementet är mindre låter vi elementen byta plats 
annars gör vi ingenting. De två första elementen är nu sorterade. 

nr 1 2 3 4 5 

värde 11 16 56 41 9 

Nästa osorterade element är 56. Vi jämför detta med föregående element 16 och 
finner att inget byte behövs. De tre första elementen är nu sorterade. 

Vi jämför därefter det fjärde elementet, 41, med det föregående och ser att 41 
är mindre än 56. Vi byter: 

nr 1 2 3 4 5 

värde 11 16 41 56 9 
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Men nu måste vi kontrollera att det nya elementet på plats tre är större än nr 
två annars måste vi byta. Det behöver vi inte i det här fallet. De fyra första 
elementen är nu sorterade. 

Vi tar nu element nr fem och jämför med nr fyra. Vi ser att vi måste byta. Talet 
9 är nu nr fyra. Detta jämför vi med nr tre. Vi måste byta. Vi fortsätter så 
tills vi får situationen: 

nr 1 2 3 4 3 

värde 9 11 16 41 36 

Det ursprungligen sista elementet har då hamnat på plats ett och vi är färdiga. 
Vi inser att vi i algoritmen måste bygga in en test så att vi inte jämför med 
ett element som ligger till 'vänster' om elementet på plats ett. 

Detta kan göras på två sätt: 

Vi testar varje gång om det insatta talet hamnat på plats nr ett, i så fall 
är det insatt på rätt plats och nästa element kan sorteras in. 

Det andra och mest effektiva sättet är att från början lagra ett värde på 
plats nr noll, som är mindre än varje annat tal i listan. I så fall kan ett 
element som sorteras in aldrig hamna på lägre index än ett. 

I programexemplet nedan har den senare metoden använts. Det 'mest vänstra' ele¬ 
mentet, a[0], sätts lika med -999. Algoritmen fungerar då på alla tal som är 
större än -999. 

Exempel 6.22 

program InsertSort; 

var i,j,n, 

temp : integer; 

a : array[0. .100] of integer; 


begin 

Write('Hur många tal vill du sortera (max 100)7 '); 
Readln(n); 

Writeln('Mata in ',n,' positiva heltal!'); 

Writeln; 

for i:=1 to n do begin 

Write( 'Tal nr ', i , ': '); 

Readln(a[i]); 

end; 

a[0]:=-999; 

for i:=2 to n do begin 

j:=i; 

while a[j]<a[j—1] do begin 
temp:=a[j]; 
a[j]:=a[j—1]; 
a[j-1]:=temp; 

j:=j-l; 

end; 
end; 

Writeln('Talen sorterade i ordning är:'); 

Writeln( '-'); 

for i:=1 to n do 
Write(a[i]:8); 

end. 


{ Talen i listan måste vara större än -999} 


{ Element nr ett betraktas som sorterat } 
{ Sortera in övriga tal. Låt index j vara } 
{ index för det tal som skall sorteras in } 
{ Så länge elementet på plats j är mindre } 
{ än elementet till vänster så bytes } 
{ dessa element. } 

{ Sätt index j till index för elementet } 
{ till vänster. } 
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Urvalsmetoden. 


Anta att vi skall sortera samma tal som i den förra metoden: 

nr 1 2 3 4 5 

värde 16 11 36 41 9 

Principen här är enkel. Leta bland de osorterade talen upp det minsta. I detta 
fall talet 9. Låt detta byta plats med talet på plats nr ett. 

nr 1 2 3 4 3 

värde 9 11 56 41 16 

Leta därefter upp det minsta bland de osorterade talen och låt detta byta plats 
med talet på plats nr två. Nu råkar det minsta talet vara 11 som redan är på 
rätt plats, så inget byte behöver ske. 

Nu är de två första elementen sorterade. Nästa minsta osorterade tal letas upp 
och får byta plats med elementet på plats tre. 

nr 1 2 3 4 5 

värde 9 11 16 41 56 

Algoritmen upprepas till dess att inga fler osorterade tal finns. 


Exempel 6.23 

program SelectionSort; 

var i,j,n, 

k,minst : integer; 

a : array[1 ..100] of integer; 


begin 

Write( 'Hur många tal vill du sortera 
Readln(n); 

WritelnC'Mata in ',n, ' heltal!'); 
Writeln; 

for i:=1 to n do begin 

Write('Tal nr ',i, ': '); 
Readln(a[i]); 

end; 

for i:=1 to n-1 do begin 
k: =i; 

for j:=i+1 to n do 
if a[j]<a[k] then 

k:=j; 

if kOi then begin 
minst:=a[k]; 
a[k]:=a[i]; 
a[i]:=minst; 

end; 
end; 

WritelnC 'Talen sorterade 
WritelnC '- 

for i := 1 to n do 

Write(a[i]:8); 

Writeln; 

end. 


(max 100)? '); 


{ Sortera de n-1 första talen. Index k är } 
{ index för det första osorterade elementet.} 
{ Bland de övriga osorterade elementen letas} 
{ det minsta upp och k sätts till index } 
{ för detta element. } 
{ Om detta element inte är elementet som } 
{ skall sorteras in, byts dessa element, } 
{ dvs det minsta sätts in på plats i. } 


ordning är: ') 
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Båda dessa sorteringsalgoritmer är effektiva om inte allför många element skall 
sorteras. I så fall finns det bättre metoder. 

Insticksmetoden lämpar sig om man misstänker att elementen redan delvis är sor¬ 
terade . 

Urvalsmetoden är lämplig om det för datorn tar relativt lång tid att byta ele¬ 
ment . 


6.4.3 Eratosthenes såll (Sieve of Eratosthenes). 

Detta är en gammal grekisk algoritm, som bestämmer alla primtal upp till en övre 
gräns. Algoritmen kan skrivas så, att inte en enda multiplikation eller division 
behöver utföras! 

Principen är följande: 

Skriv först upp alla heltal upp till den övre gränsen: 

2 3 4 3 6 7 8 9 1 0 11 1 2 1 3 1 4 1 5 1 6 17 18 19 20 ... 

Det första talet (2) är ett primtal. Märk nu alla multipler av av talet två: 

2 3 4 3 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 ... 


Vi kommer till en ny multipel genom att addera talet två till den föregående! 

Nästa omärkta tal (3) i listan är ett primtal. Märk nu alla multipler av talet 
tre: 

2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 ... 


Observera att den första multipel, som behöver märkas, är 3 * 3 = 9, och varan¬ 
nan multipel är redan märkt! 

Nästa omärkta tal (5) i listan är ett primtal. Märk alla multipler av talet fem: 
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 ... 


Algoritmen upprepas på det här sättet tills nästa omärkta tal i listan är större 
än den övre gränsen. 

De tal i listan, som då inte är märkta, är alla primtal. 


I programmet nedan används en array, flag, där elementen är av datatypen boole- 
an. Varje element representerar ett tal. 0m elementet är true är motsvarande tal 
ett primtal annars inte. Vi märker talen i listan genom att sätta motsvarande 
element false. 

Först antas att alla talen är primtal dvs motsvarande element sätts true. Däref¬ 
ter märks talen i listan enligt algoritmen ovan. 
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program Sievel; 

const max = 20000; 

var count, 
i, k, 
prime, 

maxsize : integer; 

flags : array[2. .max] of boolean; 

begin 

Write('Ange övre gräns (max 20000) 

Readln(maxsize); 

Writeln; 

WritelnC'I intervallet 2 <= x <= maxsize, ' finns följande primtal:'); 
WritelnC '-'); 

count:=0; 


for i:=2 to maxsize do { 'Skriv upp' alla talen i listan } 

flags[i]:=true; { Anta att de är primtal från början } 

for i:=2 to maxsize do { Undersök från första till sista element} 

if flags[i] then begin { om elementet är märkt. 0m ej, så är } 

prime:=i; { elementet ett primtal. } 

Write(prime:8); { Skriv ut det. } 

count:=count+1; { Räkna upp primtalsräknaren. } 

k:=prime+prime; { Tag reda på första multipeln. } 

{ 0m k räknas upp till ett tal som är 
större än det största positiva heltalet 
blir k negativt. } 

{ Medan beräknad multipel<= största talet 
och k inte 'slagit runt' } 

while (k<=maxsize) and (k>0) do begin 

flags[k]:=false; { märk multipeln, } 

k:=k+prime; { beräkna nästa multipel. } 


end; 

end; 

Writeln; 

Writeln; 

WritelnC'Totalt ', count, ' primtal.'); 

end. 


Många gånger då man skrivit en första version av ett program upptäcker man 
detaljer, som kanske sparar minnesplats eller får programmet att exekvera snab¬ 
bare. Låt oss ta Sievel som ett exempel på detta. 

Alla vet ju att talet två är ett primtal. Multipler av två kan inte vara prim¬ 
tal. 0m man därför låter listan börja med talet tre behöver man bara låta listan 
innehålla udda tal! Detta halverar genast den ursprungliga listan och man slip¬ 
per också att märka alla jämna tal större än två! 

Alla udda tal >= 3 kan skrivas 2*i+3 där i=0,1,2,3,... 

Anta att vi har hittat ett primtal p=2*i+3 och nu skall märka alla multipler av 
detta tal. I den förra listan fick vi den första multipel som skall märkas genom 
att beräkna p+p. Men eftersom alla tal i vår nya lista är udda blir detta tal 
jämnt! Det finns alltså inte med i vår nya lista. 
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Den första multipel som skall märkas är p+2p, som vi skriver som 2*k+3, där k>i. 

Då gäller 2*k+3=p+2p 

2*k+3=2i+3+2p 

k=i+p 

Om m=2*k+3 är en multipel får man nästa multipel, 2*j+3, ur 
2*j+3=m+2p 
2*j+3=2*k+3+2p 
j=k+p 

Om man plockar ut alla primtal upp till en övre gräns, max, får man motsvarande 

värde på i ur sambandet (variabeln size beräknas ur detta samband) 

2*i+3=max 

i=(max-3)/2 


program Sieve2; 

const max = 20000; 

var count, 
i,k, 
prime, 
size, 

maxsize : integer; 

flags : array[0. .max] of boolean; 

begin 

Write( 'Ange övre gräns (max 20000) :'); 

Readln(maxsize); 

size:=(maxsize-3) div 2; { Övre gräns på i är i=(max-3)/2 } 

Writeln; 

Writeln('I intervallet 3 <= x <= ', maxsize, ' finns följande primtal:'); 
Writeln( '-'); 

count:=0; 

for i:=0 to size do 
flags[i]:=true; 

for i:=0 to size do 
if flags[i] then begin 

prime:=i+i+3; { Primtal p=2*i+3 } 

Write(prime:8); 
count:=count+1; 

k:=i+prime; { Första multipel k=i+p } 

while (k<=size) and (k>0) do begin 
flags[k]:=false; 

k:=k+prime; { Nästa multipel j=k+p } 

end; 

end; 

Writeln; 

Writeln; 

Writeln('Totalt ', count, ' primtal.'); 

end. 


Kan man göra programmet ännu mera effektivt? 

I det inledande resonemanget noterade vi att om man funnit ett primtal p, så är 
den första multipel som man behöver märka p*p. Att åstadkomma detta i programmet 
kräver en multiplikation. 0m vidare p*p är större än den övre gränsen, så behö¬ 
ver inga fler märkningar göras. 
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Låt oss framställa våra udda tal som 


2*1+1, där 1=1,2,3,-.. 


För det första talet, 2*k+1, vi skall märka gäller då 

2k+1=p*p 
2k+1=4i*i+4i+1 
k=2i*i+2i 
k=2i(i+1) 
k=(i+i)(i+1) 

I övrigt så är betingelserna desamma som i föregående variant. 


program Sieve3; 

const max = 20000; 

var count, 
i,k, 
prime, 
size, 

maxsize : integer; 
mark : boolean; 
flags : array[ 0..max] of boolean; 

begin 

Write('Ange övre gräns (max 20000) :'); 

Readln(maxsize); 
size:=(maxsize-1) div 2; 

Writeln; 

Writeln('I intervallet 3 <= x <= maxsize, ' finns följande primtal:'); 

WritelnC '-'); 

count:=0; 
mark:=true; 
for i:=0 to size do 
flags[i]:=true; 
for i:=1 to size do 
if flags[i] then begin 


prime:=i+i+1; { Primtal p=2*i+1 } 

Write(prime:8); 
count:=count+1; 

if mark then begin { 0m multiplar skall märkas så } 

k:=(i+i)*(i+1); { beräkna k för den första multi- 

peln som är p*p=2*k+1. } 

if (k>size) or (k<0) then { 0m p*p>maxsize behöver inga } 

mark:=false { fler multipler märkas. } 


else while (k<=size) and (k>0) do begin 
flags[k]:=false; 
k:=k+prime; 

end; 

end; 

end; 

Writeln; 

Writeln; 

WritelnC'Totalt ', count, ' primtal.'); 

end. 

0m man tar bort satsen där primtalen skrivs ut och sedan kör programmet, finner 
man att datorn klarar att plocka ut alla primtal upp till 20 000 på mindre än en 
sekund !! 
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7 Mera om typbegreppet. Egendeklarerade typer. Mängder 

7.1 Mera om typbegreppet. 

I tidigare avsnitt har du träffat på sk fördeklarerade datatyper, som i princip 
är av två slag: Enkla eller skalära datatyper och sammansatta (strukturerade) 
datatyper. 

7.1.1 Enkla eller skalära datatyper. 

Dessa utgöres av typerna 

heltal (shortint,byte,integer,word,longint), real, char och boolean. 

Med en skalär datatyp menas en datatyp, som endast kan anta ett begränsat antal 
värden. 

Ett typiskt exempel på en skalär datatyp är datatypen char: ASCII-tabellen inne¬ 
håller ju bara ett begränsat antal tecken. 

Ett annat exempel är datatypen boolean, som bara kan anta två värden, true och 
false. 

En annan äkta skalär datatyp är integer, eftersom ett integertal bara kan anta 
värden från ett minsta integertal, -(maxint+1), upp till ett största integertal, 
maxint. 

Datatypen byte är också en äkta skalär datatyp. Den kan bara anta värden i in- 
tervallet 0 .. 255. 

På alla äkta skalära datatyper kan du använda funktionerna 
Pred, Succ och Ord. 

Ex Anta att du har en variabel, ch:char, som du gett värdet 'E'. 

Funktionerna ovan ger då följande resultat 

Pred(ch) returnerar värdet 'D' 

Succ(ch) 'F' 

Ord(ch) 69 

funktionerna ovan kan du däremot inte använda på datatypen real, som ju skall 
kunna anta ett 'oändligt' antal värden och därför egentligen inte heller utgör 
en äkta skalär datatyp. 


7.1.2 Sammansatta datatyper. 

Till denna kategori räknas typerna 

array 

string (endast Turbo Pascal, är egentligen av typen array) 

record (de tre sista datatyperna redogörs för senare) 

set of 
file of 


7.2 Egendeklarerade datatyper. 

Med datatyperna ovan klarar man sig ganska bra, men inte alltid. Antag att man 
har ett program som sysslar med tideräkning av något slag och därför har dekla¬ 
rerat en variabel dag: integer; som skall kunna anta värden 1 .. 7. 
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När programmerarteamet börjar skriva på programmet bestämmer man sig för att 
'söndag' skall svara mot värdet ett. Då man nästa vecka skall fortsätta att 
skriva på programmet har man glömt detta och räknar med att 'måndag' har värdet 
ett. Att detta mycket väl leder till märkliga effekter som är svåra att rätta 
till säger sig självt. 

I Pascal kan man mycket enkelt komma till rätta med sådana här problem - man 
definierar helt enkelt själv en egen datatyp som passar till den problematiska 
variabeln: 

type dagtyp =(son,man,tis,ons,tors,fre,lor); 

För denna datatyp kan bara de värden som räknats upp komma ifråga. 

Du kan nu deklarera din variabel 
var dag: dagtyp; 

och tilldela den något av de värden du räknat upp för dagtyp. 

Försöker du ge den ett annat värde, t ex dag:=5; kommer kompilatorn att pro¬ 
testera mot detta. 

Studera noga följande programexempel, som är tänkt att åskådliggöra några av de 
begränsningar som gäller för egendeklarerade typer. 

Exempel 7.1. 

program Typer; 
type 

dagtyp = (ingendag,son,man,tis,ons,tors,fre,lor); 

var 

dag : dagtyp; 
ch : char; 

begin 

repeat 

Writeln('Avsluta med dagen 0.'); 

Write('Vilken dag vill du pröva? (1-7)'); 

Readln(ch); 
case ch of 

'1 ' : dag:=son; 

'2' : dag:=man; 

'3' : dag:=tis; 

'4' : dag:=ons; 

'5' : dag:=tors; 

'6' : dag:=fre; 

'7' : dag:=lor; 
else dag:=ingendag; 
end; 

if dag=ingendag then 

Writeln( 'Det finns ingen sådan dag! ') 

else begin 

Writeln('Dagens nummer är ',0rd(dag)); 

Writeln('Förra dagens nummer är ',Drd(Pred(dag))); 

Writeln('Nästa dags nummer är ' ,0rd(Succ(dag))); 

Writeln; 

end; 

until dag=ingendag; 

end. 


112 




I programmet ovan har lagts till ytterligare en dag än de som kan komma ifråga, 
ingendag. 

Detta är en god regel: Man hamnar nämligen lätt i situationer då man tvingas ta 
hand om ett fall som inte egentligen skall inträffa. 

Programmet ovan brister i ett par detaljer. Vad händer om du provar dag 1 eller 
dag 7? Hur kan man lämpligen åtgärda dessa brister? 

Som du ser kan du använda funktionerna 

Ord, Succ och Pred 

även på egendeklarerade datatyper. Du kan faktiskt också använda relationsopera¬ 
torerna =, <, > osv. 

Satsen 

son = man ger resultatet false, 
lor > son true, 

tis <= tis true. 

Att man inte kan använda vanliga räkneoperationer är ju självklart. Vad skall 
man mena med son+tis ? 

I programmet Typer ovan lagras valet av dag i variabeln ch, och därefter över¬ 
sätts detta val i case-satsen. Man är i ett sådant här fall tvungen att utföra 
någon form av översättning. Det går nämligen inte att vare sig läsa in värdet 
med Read eller skriva ut värdet med Write. 

Om du därför försöker med satserna 

Read(dag); 

Write(dag); 

kommer detta att ge dig kompileringsfel. 

Om du vill ha möjlighet att skriva ut veckodagarna kan du göra något i stil med 
följande. 

Exempel 7.2. 

program Typerl; 
type 

dagtyp = (ingendag,son,man,tis,ons,tors,fre,lor); 

var 

dag : dagtyp; 

veckodag : array[son..lor] of string[7]; 
begin 

veckodag[son]:='Söndag'; 
veckodag[man]:='Måndag'; 


veckodag[lor]: = 'Lördag '; 

Writeln( 'Veckans dagar är dessa:'); 
for dag:=son to lor do 
Writeln(veckodag[dag]); 

end. 

Om du har anledning att använda sådana här listor, lagrar du dessa bäst på en sk 
fil, från vilken du enkelt kan läsa in aktuella värden. Filer träffar du på lite 
längre fram. 
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Exempel 7.3 

Några exempel på egna typdeklarationer. 


type 

manadstyp 

riktning 

tärning 

rank 

kort 


(ingenmanad,jan,febr,mars,apr,maj, juni, juli, 
aug,sept,okt,nov,dec); 

(ingenriktning,norr,vast,syd,ost); 
(ingensida,etta,tvaa,trea,fyra,femma,sexa); 

(ingenrank,korpral,furir,sergeant, löjtnant); 
(ingetkort,tva,tre,fyr,fem,sex,sju,atta, 
nio,tio,knekt,dam,kung,ess); 


Du måste se till att de fall som kan inträffa för en datatyp inte kolliderar med 
fall för en annan datatyp, se t ex typerna tärning (fyra) och kort (fyr). 


När väl en viss typ är deklarerad, kan du definiera nya typer som är delmängder 
av dessa. 


type 

storbokstav 

litenbokstav 

underbefäl 

brakort 


'A'.. ' 1 '; 

'a '.. 'z'; 
korpral..furir; 
tio..ess; 


Observera beträffande delmängder av en datatyp att ordningsnumret för ett ele¬ 
ment fortfarande är det samma. 


Ord('A') ger värdet 65 även om typen är storbokstav 
Ord(ess) ger värdet 13 " " " " brakort 

Exempel 7.4 

Några var-deklarationer. 


manad : 
väderstreck: 
militarl : 
militar2 : 
versal : 
gemen : 
hand : 


manadstyp; 
riktning; 
rank; 

underbefäl; 
storbokstav; 
litenbokstav; 
kort; 


Dessa variabler kan naturligtvis bara tilldelas något av de värden som definie¬ 
rar den datatyp variabeln tillhör. 

Om du använder egendeklarerade variabler där det är möjligt vinner du att 

redan vid kompileringen av programmet kan du upptäcka felaktigt använda 
variabler. 

läsbarheten av programmet ökar. 

du aldrig behöver sväva i tvivelsmål om vilka värden en variabel skall kun¬ 
na anta. 


I vissa lägen är du tvungen att göra egna typdeklarationer. Vid funktioner och 
procedurer som vi skall behandla längre fram är du tvungen att göra typdeklara¬ 
tioner som t ex 

type heltalsvektor = array[0..100] of integer; 
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7.3 Mängder. 


Vi har tidigare träffat på två sammansatta datatyper, string och array. Mängder 
är också en sammansatt datatyp och du kommer att träffa på fler längre fram. Här 
skall vi bara kort redogöra för mängdbegreppet. 

I Pascal består en mängd av ett antal värden eller element av samma slag. 
Elementen kan bara vara av enkel skalär datatyp. 

Hela mängden betraktas som en helhet och någon ordning mellan elementen i 
mängden förekommer inte. 

För varje element gäller att det endast kan förekomma en gång i mängden. 

Man refererar till ett element i mängden endast i den meningen att man kan 
undersöka om ett element finns eller inte. 

Man kan bara ha ett begränsat antal element i en mängd, i Turbo Pascal 236 
stycken. 

Ordningstalet för ett element måste ligga i intervallet 0 .. 255. 


En mängd definieras genom satsen 
set of elementtyp; 

Här är ordet set ett reserverat ord och elementtyp den datatyp elementen till¬ 
hör . 


Exempel 7.5 


Några deklarationer av mängdtyper. 


type 

riktning 

väderstreck 

teckentyp 

storabokstaver 

smabokstaver 

siffertecken 

smatal 

storatal 


(norr,vast,syd,ost); 
set of norr..ost; 
set of char; 
set of 'A '.. 'Z '; 
set of 'a '.. 'z '; 
set of '0 '.. '9 ' ; 
set of 0..3; 
set of 200..255; 


Elementtypen kan vara en enkel skalär datatyp eller en egendeklarerad datatyp. 
Den kan bestå av alla elementen eller en delmängd av dessa. 


Exempel 7.6 

Några deklarationer av mängdvariabler. 


kurser : 
bokstaver : 
nagrastora: 
nagrasma : 
siffror : 
svar : 


väderstreck; 
teckentyp; 
storabokstaver; 
smabokstaver; 
siffertecken; 
teckentyp; 
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Exempel 7.7 


Några tilldelningar av mängdvariabler. 

kurser :=[ost,syd]; 

bokstaver:=[ 'A '.. 'C ', 'Q ', 's '.. 'z ' ]; 

nagrasma :=[ 'x '.. 'z ' ]; 

siffror :=[ '0 ', '9' ]; 

svar :=[ 'J']; 


Man kan använda relationsoperatorerna >= , <=, <> och = , om man vill jämföra 
mängderna med varandra. 

Exempel 7.8 

A = B Sant om A och B har samma element. 

A <> B Sant om A och B inte har precis samma element 

A <= B Sant om A är en delmängd av B, dvs alla element i A också 

finns i B. 

A >= B Sant om A innehåller alla element som finns i B. 

Ytterligare operatorer är *, + och -. 

Exempel 7.9 

C:=A*B; I C lagras de element som är gemensamma i A och B. 

C:=A+B; I C lagras alla element som förekommer i A och B. 

C:=A-B; I C lagras alla de element som finns i A men inte i B. 

Av dessa är operatorerna + och - de vanligaste. 

Den annars mest användbara operatorn är operatorn in. Med hjälp av denna kan man 
testa om ett visst element finns i en mängd eller inte. 

Antag t ex att du läst in ett svar i variabeln ch. I satsen 

ingetsvar:=ch in [ 'j ', 'J ', 'n 'N ']; { ingetsvar är av typen boolean} 

blir variabeln ingetsvar falsk om ch inte är någon av bokstäverna i mängden. 

Detta att kunna testa om ett visst element ingår i en mängd eller inte är den 
egentliga behållningen av mängdbegreppet som vi ser det. 


Exempel 7.10 

Programexemplet nedan är ett försök att visa de sätt som mängder kan hanteras 
på. 

program SetTest; 
uses Crt; 
type 

bigletters = 'A'..'Z'; 
var ch : char; 

i : integer; 

a,b, 

union, 

snitt, 

skillnad, 

ut : set of bigletters; 
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begin 

repeat 

ClrScr; 

WritelnC 'Test av mängder.'); 


a:=[ 'A', 'S% 'G']; 

b:=[ ]; 

for i:=1 to 15 do 

b:=b+[Chr(Random(26)+65)]; 

union:=a+b; 

snitt:=a*b; 

skillnad:=a-b; 

GotoXY(1,5); 


{ Direkt tilldelning med konstantuttryck } 


{ Mängden b sätts till 'tomma mängden', 
dvs nollställs } 

{ Mängden b tilldelas 15 slumpmässiga 

bokstäver i intervallet 'A'..'Z' } 

{ Mängden union tilldelas de element som 
förekommer i a eller b. } 

{ Mängden snitt tilldelas de element som 
är gemensamma för a och b } 

{ Mängden skillnad tilldelas de element 
i a som inte förekommer ib } 


for i:=1 to 5 do begin { Mängden 'ut' sätts lika med den mängd 

som skall skrivas ut } 

case i of 

1: begin { Utskrift av mängden a } 

ut:=a; 

Write( 'a = ':20); 

end; 

2: begin { Utskrift av mängden b } 

ut:=b; 

Write( 'b = ':20); 

end; 

3: begin { Utskrift av mängden union } 

ut:=union; 

Write( 'a+b = ':20); 

end; 

4: begin { Utskrift av mängden snitt } 

ut:=snitt; 

Write( 'a*b = ':20); 

end; 

5: begin { Utskrift av mängden skillnad } 

ut:=skillnad; 

Write('a-b = a-a*b = ':20); 

end; 

end; 

{ Utskrift av elementen i mängden } 
for ch:='A' to 'Z' do { Detta är det enda sättet att } 

if ch in ut then { ta reda på vilka element som } 

Write(ch:2); { förekommer i mängden. } 

Writeln; 
end; 

Writeln; 

{ Tester med relationsoperatorn >= } 

Writeln('b är en delmängd av a : a>=b); 

Writeln('b är en delmängd av a+b : ', union>=b); 

Writeln('b är en delmängd av a*b : ', snitt>=b); 

Writeln('b är en delmängd av a-b : ', skillnad>=b); 

Writeln; 
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{ Här visas ett sätt att kontrollera 
att man får rätt svar } 

Write('Fler gånger? (J/N) '); 

Readln(ch); 

while not (ch in [ ' j ', ' J ', 'n ', 'N ' ]) do begin { Testa om giltigt svar } 

Writeln(Chr(7)); { Om ej så pip och } 

Write('Fler gånger? (J/N) '); { fråga igen } 

Readln(ch); 

end; 

until ch in [ 'n', 'N']; {Om svaret är nej så avsluta } 

end. 


Exempel på programutskrift: 
Test av mängder. 


a = A D F G S 

b = ACEJMPRSTUWX 
a+b = A C D E F G J H P R 5 T U W X 
a*b = A S 
a-a*b = D F G 


b 

är 

en 

delmängd 

av 

a 

FALSE 

b 

är 

en 

delmängd 

av 

a+b 

TRUE 

b 

är 

en 

delmängd 

av 

a*b 

FALSE 

b 

är 

en 

delmängd 

av 

a-b 

FALSE 

1 ler 

gånger? (J/N) 

i 



> 
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8 Procedurer 


Vi skall i det här avsnittet diskutera begreppet procedurer, som är exempel på 
vad man kallar för underprogram. 

8.1 Allmänt om underprogram. 

Vad är då underprogram och vad är det bra för? 

Ja, faktum är att du redan använt en mängd underprogram, som finns fördefiniera¬ 
de redan. 

När vi skriver program i Pascal använder vi bl a annat vissa instruktioner eller 
satser i stil med 

Writeln; 

Writeln( 'Hejsan '); 

för att få datorn att göra det vi vill. 

I själva verket utgör Writeln ett litet eget program, som körs då någon av sat¬ 
serna ovan exekveras. Det är ganska mycket som detta program skall kunna göra: 

Writeln; skall endast göra en radframmatning till en ny 

rad. 

Writeln('Pascal'); skall kunna avgöra att 'Pascal' är en strängkons¬ 

tant, därefter skriva ut denna och göra frammat- 
ning till ny rad. 

Writeln(maxint:6); skall kunna avgöra att maxint är ett heltal, skri¬ 

va ut detta högerjusterat i ett fält på sex tecken 
och därefter göra radframmatning. 

Listan på vad Writeln kan åstadkomma kan göras ganska mycket längre. 

Writeln utgör ett exempel på en typ av underprogram som kallas procedurer. 

Andra exempel på procedurer som du kanske redan använt är 


Readln(tecken); läser t ex ett tecken från tangentbordet. 

ClrScr; rensar skärmen. 


Utmärkande för dessa underprogram är att de är ganska komplicerade. De förekom¬ 
mer dessutom ofta i alla program. Det skulle vara ganska arbetsamt om man i sina 
program själv skulle behöva skriva programkoden varje gång man ville åstadkomma 
något i stil med Writeln. Man kan säga, att detta med att få något utskrivet på 
skärmen, är ett delproblem i programskrivandet, som lösts en gång för alla med 
proceduren Writeln. 

Allteftersom man blir van, tenderar de egna programmen att bli större och stör¬ 
re. Men då växer också behovet att dela upp ett program i delprogram, underprog¬ 
ram. Man ges då också möjligheten att åstadkomma en struktur i programmet. 

Det kan dessutom vara så att samma delproblem förekommer på flera olika ställen 
i programmet. I så fall räcker det att lösa detta problem en gång i form av t ex 
en procedur, som då kan användas på ett liknande sätt som Writeln. 

En procedur är alltså ett underprogram och deklareras i Pascal likadant som ett 
program med undantag av att det reserverade ordet program byts mot det likaledes 
reserverade ordet procedure. 

Hur ser då en procedur ut? 
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8.2 Exempel på en procedurdeklaration. 

Strukturen för en procedur kan se ut så här: 

procedure Namn; <— Procedurhuvud: Proceduren ges ett 

namn. Proceduridentifieraren kan 
vara vilken identifierare som 
helst bara den inte är deklarerad 
tidigare i programmet. 

const språk = 'Pascal'; <— Här deklarerar man eventuella 

konstanter. 

var ch : char; <— Och sedan variabler. 

begin <— Här börjar underprogrammets prog- 

Write('Tycker du om ',språk,'? '); ramdel, procedurkroppen. 

Readln(ch); 

case ch of 

'J','j': Writeln( 'Du verkar vara en 
trevlig person. '); 

'N','n': Writeln('Det går nog över 
med tiden. ') 

else Writeln( 'Konstigt svar!'); 

end; 

end; <— Här avslutas procedurkroppen. Ob¬ 

servera att end följs av ett semi¬ 
kolon. 

Denna deklaration utnyttjar inte alla de möjligheter, som kan förknippas med en 
procedur. Vi kommer att utveckla detta senare. 

Procedurdefinitionen placerar man omedelbart efter deklarationen av variabler i 
huvudprogrammet. 

Proceduren använder man helt enkelt genom att skriva dess namn. Då en procedur 
används säger man ofta att den anropas. 

8.3 Program med procedurer. 

Men innan vi går vidare låt oss se hur procedurer kan ta sig ut i ett program. 

program TestAvOrd; 
uses Crt; 

var testord :string[20]; 
slut, 

tecken :char; 
ascii, 

position:integer; 


procedure Presentera; 
const rad = 2; 
begin 
ClrScr; 

GotoXY(1,rad); 

Writeln('Test av strängar och bokstävers ASCII-värden.'); 

Writeln; 

Writeln('Programmet efterfrågar först ett testord.'); 

Writeln('Därefter skall du ange en position för en bokstav i ordet.'); 
Writeln( 'Programmet avslutas om du anger siffran 0.'); 

end; 
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procedure HamtaStrang; 
const rad = 10; 
begin 

GotoXY(1,rad); 

Write('Ange ett testord:'); 

Readln(testord); 

end; 

procedure HamtaTecken; 
const rad = 12; 
begin 

GotoXY(1,rad); 

ClrEol; 

Write( 'Position: '); 

Readln(position); 
tecken:=testord[position]; 
ascii:=0rd(tecken); 

end; 

procedure SkrivUt; 
const rad = 14; 
begin 

GotoXy(1,rad); 

ClrEol; 

Writeln('Bokstaven i position ', position:2, ' är ett tecken, 

'" och har ASCII-värdet ',ascii); 

end; 

begin { huvudprogram } 

Presentera; 

HamtaStrang; 

HamtaTecken; 

while positionOO do begin 
SkrivUt; 

HamtaTecken; 

end; 

GotoXY(1,24); 

end. 

Så här kan Pascalprogram se ut. 

Huvudprogrammet består av ett antal underprogram som anropas successivt. Det 
börjar med proceduren Presentera, där skärmen töms och en presentation av prog¬ 
rammet ges. Därefter läses ett testord in varefter positionen för en viss boks¬ 
tav i testordet efterfrågas. Om positionen för testordet är noll avslutas prog¬ 
rammet . 

I programmet används den fördefinierade proceduren ClrEol, som rensar allt till 
höger om markören på en rad, men låter markören stå kvar. 

Man kan fråga sig vad det är för skillnad att som i programmet ovan deklarera 
variabler och konstanter i huvudprogrammet resp i en procedur. Kan de användas 
på samma sätt? Denna fråga leder oss in på begreppet - räckvidd för en identi¬ 
fierare. 


8.4 Identifierares räckvidd. 

Det är mycket viktigt att du gör dig förtrogen med räckvidden för identifierare. 
En identifierare kan vara en konstant, variabel, procedur eller liknande. 
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I programmet ovan är räckvidden för variablerna som deklarerades precis under 
programhuvudet global. 

Exempel på globala variabler är testord,slut,tecken,ascii och position. De kan 
användas (nås) var som helst i programmet, dvs även i underfunktionerna så länge 
man här inte har deklarerat samma identifierare på nytt. Är så fallet gäller 
denna nya identifierare enbart i underfunktionen. Den är vad man kallar lokal. 

Exempel på lokala identifierare i programmet är konstanten rad, som är lokal i 
varje underfunktion. Huvudprogrammet 'känner inte till' denna konstant. Det är 
vidare så att även om konstanten har samma namn i de olika underprogrammen, så 
är det olika konstanter i varje underprogram. Varje konstant rad, gäller bara 
det egna underprogrammet. 

EN IDENTIFIERARE GÄLLER BARA I DEN OMGIVNING DEN ÄR DEKLARERAD ! 

Om identifieraren har deklarerats i det överordnade programmet t ex i huvudprog¬ 
rammet, så är den global, dvs tillgänglig för varje underfunktion. 

Om identifieraren är deklarerad i ett underprogram så är den lokal dvs bara 
tillgänglig inne i denna underfunktion. Identifieraren existerar inte i det öve¬ 
rordnade programmet. 

Exempel 8.1 Betrakta följande felaktiga program: 

program RackerlnteLangt; 
var a:integer; 

procedure DubbeltUpp; 
var b:integer; 
begin 
b: =2*a; 

end; 

begin { huvudprogram } 
a:=100; 

DubbeltUpp; 

Writeln('Ursprungligt tal ',a); 

Writeln('Dubbelt så mycket är ',b); 

end. 

Om du skriver in detta program och kompilerar det, så kommer du att få kompile- 
ringsfel på den andra Writeln-satsen. Variabeln b är okänd! Varför då? Den är ju 
deklarerad i proceduren DubbeltUpp. Ja, det är just detta som är problemet. Den 
andra Writeln-satsen ligger i huvudprogrammet och där är variabeln b okänd. 


8.5 Uppbyggnad av program med procedurer. 

Som framgår av programexemplet TestAvOrd är det lätt att ge ett program en 
struktur med hjälp av procedurer. Man kan se hur programmet är uppbyggt och de 
enskilda delarna framträder tydligt. 

Vi skall här försöka ge ett exempel på hur man kan gå tillväga då man skriver 
ett program. 

Antag att vi vill skriva ett program som skall efterlikna en enkel räknedosa. 
Räknaren skall klara av att addera, subtrahera, multiplicera och dividera två 
tal med varandra. 
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För att göra det lite lättare för oss antar vi att vi väljer räknesätt från en 
meny. 

Hur skall vi gå tillväga? Ja, det enklaste är att först göra en lista i grova 
drag på vad programmet skall åstadkomma. En sådan lista skulle kunna se ut som t 
ex 

1. Rensa skärmen och förse programmet med en överskrift. 

2. Presentera en meny. 

3. Hämta in val från denna meny. 

4. Utför önskad operation. 

5. Upprepa punkt tre tills programmet skall avslutas. 

Vi ser här att punkterna 3-3 kan förverkligas med en repeat-sats. 

repeat 
punkt3; 
punkt4; 
until slut; 

Men innan vi utvecklar detta vidare låt oss skärskåda varje punkt för sig. 

Punkt 1. Rensa skärmen. 

Detta klarar vi med instruktionerna 

ClrScr; 

GotoXY(25,4); 

Writeln('ENKEL RÄKNEDOSA'); 

Punkt 2. Presentera en meny. 

Till de fyra uppenbara valen lägger vi ett femte, att avsluta programmet. För 
att lättare kunna flytta menyn till lämplig plats på skärmen förutsätter vi två 
globala konstanter, menykol och menyrad. En procedur som skriver ut menyn skulle 
då kunna se ut så här: 

procedure Meny; 
begin 

GotoXY(menykol,menyrad); 

Write( 'MENY'); 

GotoXY(menykol,menyrad+2); 

Write( '1 ADDITION'); 

GotoXY(menykol,menyrad+3); 

Write( '2 SUBTRAKTION'); 

GotoXY(menykol,menyrad+4); 

Write( '3 MULTIPLIKATION'); 

GotoXY(menykol,menyrad+5); 

Write( '4 DIVISION'); 

GotoXY(menykol,menyrad+6); 

Write( '0 AVSLUTA PROGRAMMET'); 
end; 

Punkt 3. Hämta in val från menyn. 

Denna punkt består av flera delpunkter. 

1. Vi bör först ge en lämplig utskrift på vad användaren skall göra. 

2. Därefter begärs önskat alternativ. 

3. När alternativet lästs in måste vi kontrollera att det är ett rimligt 
svar. 

4. Om svaret inte är rimligt bör vi påpeka detta och begära nytt svar, dvs 
vi går till delpunkt 1 igen. 
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Proceduren nedan åstadkommer detta. Valet lagras i variabeln alternativ. 

procedure MenyVal; 
begin 
repeat 

GotoXY(menykol,menyrad+8); 

Write( 'VÄLJ ALTERNATIV (0-4) '); 

ClrEol; 

Readln(alternativ); 

GotoXY(menykol,menyrad+10); 

ClrEol; 

if not (alternativ in [0..4]) then begin 

Writeln('Det finns inget alternativ alternativ, ' !'); 
Write(Chr(7)); 

Delay(IOOO); 

end; 

until alternativ in [0..4]; 

end; 

Punkt 4. Utför önskad operation. 

Detta är en ganska sammansatt punkt, där följande moment ingår 

1. Läs in de två talen. 

2. Utför själva räkneoperationen. 

3. Presentera resultatet. 

Om man försöker skriva en kod för detta direkt får man problem med att avsluta 
programmet. Ett sätt att lösa problemet är att lägga valet i en case-sats, där 
de olika valen behandlas var för sig. 

Eör vart och ett av de fyra räkneoperationerna kan man då tillämpa de tre del- 
punkterna ovan. Det femte valet, att avsluta programmet, är då lätt att behandl 
för sig. 

Det vore bra om man läste in talen och skrev ut resultatet på ett särskilt stäl 
le på skärmen. Vi definierar därför ett kalkylatorfönster med hjälp av två glo¬ 
bala konstanter, fonsterkol och fönsterrad. 

Kalkylatorfönstret skall tömmas innan nya tal läses in. Vi modifierar därför 
punkt 4 till 

1. Töm kalkylatorfönstret. 

2. Utför önskad operation. 

Om alternativ är 

1..4 så 1. Läs in de båda talen. 

2. Utför räkneoperationen. 

3. Presentera resultatet. 

0 så Avsluta programmet. 

Punkt 4.1. Töm kalkylatorfönstret. 

Proceduren RensaRuta åstadkommer detta, fönstret är sex rader högt. 

procedure RensaRuta; 
var i:integer; 

begin 

for i:=2 to 5 do begin 

GotoXY(fonsterkol,fonsterrad+i); 

ClrEol; 

end; 

end; 
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Punkt 4.2.1. Läs in de båda talen. 

En procedur som förser fönstret med lämplig överskrift och läser in de båda 
talen, a och b, kan se ut så här: 

procedure HamtaTal; 
begin 

GotoXY(fonsterkol,fönsterrad); 

Write( 'KALKYLATORFÖNSTER '); 

GotoXY(fonsterkol,fonsterrad+2); 

Write( 'Ange första talet a='); 

Readln(a); 

GotoXY(fonsterkol,fonsterrad+3); 

Write( ' andra talet b='); 

Readln(b); 

end; 


Punkt 4.2.2. Utför räkneoperationen. 

Detta gör vi enkelt för vart och ett av de fyra fallen. Resultatet lagrar vi i 
en resultatvariabel c. 


Punkt 4.2.3. Presentera resultatet. 

För att göra motsvarande procedur mera generell förutsätts att räknesättet lag¬ 
rats i en teckenvariabel operation. Antalet decimaler vid utskriften bestäms av 
konstanten dec. 

procedure Resultat; 
begin 

GotoXY(fonsterkol+5,fonsterrad+5); 

Writeln(a:0:dec,operation,b:0:dec,'=',c:0:dec); 

end; 


Vi har nu tillräckligt med underprogram för att skriva hela koden för punkt 4. 

procedure ExekveraVal; 
begin 

RensaRuta; 

case alternativ of 

1 : begin 

Hamtatal; 
operation: = '+'; 
c:=a+b; 

Resultat; 
end; 

2 : begin 

Hamtatal; 
operation: = '- '; 
c:=a-b; 

Resultat; 

end; 

3 : begin 

Hamtatal; 
operation: = '* '; 
c:=a*b; 

Resultat; 

end; 

4 : begin 

Hamtatal; 
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operation:= '/ '; 
c:=a/b; 

Resultat; 

end; 

0 : begin 

GotoXY(fonsterkol,fonsterrad+3); 
Writeln('Tack för idag.'); 

end; 

end; 

end; 


Det som nu återstår är att deklarera globala konstanter och variabler samt att 
skriva själva huvudprogrammet. 

program Calc; 
uses Crt; 
const 

dec 

menyrad 
menykol 
fönsterrad 
fonsterkol 

var 

a,b,c : real; 

alternativ : integer; 
operation : char; 

{ Här följer nu deklarationerna av procedurerna som de beskrivits ovan. } 

{ För enkelhetens skull skrivs endast procedurhuvudet ut. } 

procedure Meny; 
procedure MenyVal; 
procedure RensaRuta; 
procedure HamtaTal; 
procedure Resultat; 
procedure ExekveraVal; 

begin (* Huvudprogram *) 

ClrScr; 

GotoXY(25,4); 

Writeln('ENKEL RÄKNEDOSA'); 

Meny; 
repeat 
MenyVal; 

ExekveraVal; 
until alternativ=0; 
end. 


= 2; 

= 8; 

= 10; 
= 8 ; 

= 40; 


Huvudprogrammet följer den ursprungliga listan över vad programmet skall göra 
Detta sätt att bryta ner ett problem i delar och delarna till än mindre delar 
tills delarna lätt kan översättas till programkod är en metod som kallas top- 
down-design. Förutom att den är effektiv ger den struktur åt programmet som 
därigenom blir lättläst och lätt för en utomstående att göra ändringar i. 
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8.6 Parametrar. 


Med hjälp av parametrar är det möjligt att föra över data från det överordnade 
programmet till ett underprogram. 

Klarar vi oss inte med globala variabler till detta? Jo, det är fullt möjligt. 
Men om vi har skrivit ett stort program, som innehåller många underfunktioner 
som påverkar samma variabel, kan vi få problem. 

En procedur förutsätter kanske att en global variabel har sitt ursprungliga vär¬ 
de. Proceduren kommer då att ge felaktigt resultat om en annan procedur precis 
innan har förändrat dess värde. 

Detta är ett exempel på vad man kallar för sidoeffekt. Man vill i regel undvika 
alla oavsiktliga sidoeffekter och använder därför lokala variabler så långt det 
är möjligt. 

Om man enbart skall arbeta med lokala variabler behöver man kunna föra över data 
till underfunktionen och det är här parameterbegreppet kommer in i bilden. 

Parametrarna anges i en parameterlista omedelbart efter identifierarnamnet, 
som i följande procedurhuvud: 

procedure Namn(par1,par2:partypl2; par3:partyp3); 

Exempel 8.2 

Betrakta följande ganska vanliga problem att avgöra vilket av två tal som är 
minst resp störst. Vi skriver en procedur som klarar av detta till oss. 


program StorstOchMinst; 
var x,y, 

min,max:integer; 

procedure MinMax(a,b:integer); 

begin 

if a<b then begin 
min:=a; 
max:=b; 

end 

else begin 
min:=b; 
max:=a; 

end; 
end; 

begin 

Writeln('Ange två tal.'); 

Write('Första talet:'); 

Readln(x); 

Write('Andra talet:'); 

Readln(y); 

MinMax(x,y); 
if min=max then 

WritelnC 'Jalen är lika stora, ',min) 
else 

Writeln(min, ' är mindre än ',max); 

end. 


{ Obs! a och b är deklarerade i och med } 
{ att de står i procedurhuvudet } 
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Först skall vi kanske konstatera att detta inte är det bästa sättet att definie 
ra MinMax på. Vi återkommer till detta. 

I programmet använder vi oss av två globala variabler - min och max - för att 
lagra resultatet i. Variablerna x och y är också globala variabler medan para¬ 
metrarna a och b i proceduren MinMax är lokala. 


8.6.1 Formella och aktuella parametrar. 

Exempel på dessa typer av parametrar har vi i programexemplet ovan. 

Storheterna a och b i procedurhuvudet 

procedure MinMax(a,b:integer); 

kallas formella parametrar. De används vid definitionen av proceduren. 

Då proceduren anropas med 
MinMax(x,y); 

kallas argumenten x och y för aktuella parametrar. En aktuell parameter behöver 
inte vara värdet av en variabel utan kan utgöras av beräkningsuttryck som t ex 
5+2*x. 


Den aktuella och formella parametern måste vara av samma typ. 

Undantag: Om den formella parametern är av typen real, kan den 
aktuella parametern vara av typen integer. 

Det går alltså att som argument ge ett värde av heltalstyp om den formella para 
metern är av flyttalstyp. 

I exemplet är alla variablerna - x,y,a och b - av typen integer och stämmer där 
för överens med varandra. 


8.6.2 Parameterklasser. 

Som parametrar till ett underprogram kan man använda fyra olika klasser av for¬ 
mella parametrar: värdeparametrar, variabeldeklarerade parametrar, funktioner 
och procedurer. I Turbo Pascal kan man endast använda de två första klasserna. 


8.6.3 Värde- och variabeldeklarerade parametrar. 

Värdeparametrar har vi redan sett exempel på i proceduren MinMax ovan. Då denna 
procedur anropas kopieras värdena på x och y över till variablerna a och b. All 
beräkningar som därefter görs på a och b i proceduren görs på dessa kopior. 
Skulle vi förändra värdet på a och b så är det endast kopiornas värden som änd¬ 
ras. Variablerna x och y ändras inte. 

För en värdeparameter gäller att den aktuella parameterns värde 
kopieras över till den formella parametern. 

Variabeldeklarerade parametrar använder man då man vill att underfunktionen 
skall kunna påverka den aktuella parametern. Detta bearbetade värde vill man 
kunna använda i det överordnade programmet. Variabeldeklarerade parametrar kal¬ 
las också för varparametrar. 
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I det här fallet måste den aktuella parametern vara en variabel - annars kan det 
bearbetade resultatet inte lagras någonstans. Ett exempel på ett underprogram 
med varparameter har vi i den fördefinierade proceduren Readln. 

Denna skall bl a kunna läsa in tecken från tangentbordet 

Readln(textin); 

Variabeln textin måste vi ha deklarerat tidigare i det överordnade programmet. 

Då satsen exekveras börjar Readln-proceduren att arbeta. När den är klar har den 
påverkat den yttre variabeln textin, där nu tecknen som lästs in lagrats. 

Då ett underprogram anropas med en variabel som argument och den formella para¬ 
metern är vardeklarerad tas ingen kopia av variabelns värde utan man använder 
samma lagringsplats i datorn även för variabeln i underprogrammet. 

För en varparameter gäller att den aktuella (yttre) parametern 
delar lagringsutrymme med den formella parametern. 

I parameterlistan till en underprocedur måste man specificera vilka variabler 
som är varparametrar t ex 

procedure ProcMedVarl (var a:integer, ok,no:boolean); 

Här är a varparameter medan ok och no är värdeparametrar. 

Innan vi går vidare vill vi presentera ett program med en procedur som byter två 
heltalsvärden. 

Exempel 8.3. 

program ByterTal; 
uses Crt; 
var x,y:integer; 

procedure Byt (var a,b:integer); 
var temprinteger; 
begin 

temp:=a; 
a:=b; 
b:=temp; 
end; 

begin 

ClrScr; 

GotoXYO ,10); 

Writeln('Ange två tal.'); 

Write('Första talet:'); 

Readln(x); 

Write('Andra talet :'); 

Readln(y); 

BytCx,y); 

Writeln('Efter byte är första talet ',x, ' och andra talet ',y); 

end. 


Först läses in ett tal x och därefter ett andra tal y. Därefter anropas procedu¬ 
ren Byt. Eftersom variablerna a och b är varparametrar kommer även de aktuella 
parametrarna x och y att ändra värden. Kör programmet och kontrollera! 


129 



Genom att använda värde- eller varparametrar kan vi bestämma hur vi vill ha det 
i våra program. 

Om vi endast använder värdeparametrar påverkar vi inte ursprungsvärdena 
från det överordnade programmet. 

Med varparametrar har vi en möjlighet att föra ut resultatvärden från un¬ 
derprogrammet . 

Då ett underprogram anropas skall kopior göras till värdedeklarerade para¬ 
metrar. Om parametern tar upp stor plats i datorn, som fallet kan vara t ex 
för en array, så bör den vardeklareras. I annat fall kanske datorns intern- 
minne inte räcker till. Kopieringen tar ju också en viss tid och programmet 
exekveras långsammare. 


8.6.4 Parametertyper. 

Parametrarna till ett underprogram kan vara av vilken typ som helst t ex av 
typen integer,array. Den datatyp som används vid deklarationen måste emellertid 
vara en skalär datatyp (se kap 6) eller tidigare deklarerad i programmet. 

Man kan alltså inte deklarera 

procedure Texter(textord: string[ 10]); 

utan måste först göra en typdeklaration i huvudprogrammet 

type ordtyp : string[l0]; 

och därefter 

procedure Texter(textord:ordtyp); 


8.7 Forwarddeklarationen. 

Identifierare i Pascal måste normalt vara deklarerade innan de används. Ibland 
kan man komma i den situationen att man behöver använda ett underprogram innan 
det är definierat. Så är fallet då man har två underprogram som anropar varand¬ 
ra. Hur man än gör så måste den ena vara definierad före den andra. 

Vi kan lösa detta problem genom att definiera det ena underprogrammet med en 
forwarddeklaration: 


<— När vi kommer hit i programmet behöver vi 

definiera procedurerna A och B. 


procedure A(ch:char); forward; 

procedure B; 
begin 


Vi definierar då den ena forward enbart med 
själva procedurhuvudet. 

Här kan vi nu definiera proceduren B fulls¬ 
tändigt . 


A( 'z'); 


end; 


Här anropas proceduren A ovan. Det går bra då 
den är forwarddeklarerad ovan. 
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procedure A; 
begin 


<— Även om A har parameterlista skall ingen lis¬ 
ta anges här. 

<— Här definierar vi nu den tidigare forwarddek- 
larerade proceduren A fullständigt. 

<— Här anropas proceduren B ovan. 


end; 


<— Nu kan programmet fortsätta. 


8.8 Ett exempel på en lokal procedur. 

Låt oss som ett sista exempel på procedurer skriva om t ex sorteringsprogrammmet 
InsertSort till en procedur. 

InsertSort(n:integer; var a:heltalsvektor); 

Typen heltalsvektor definieras 

type heltalsvektor = array[0..100] of integer; 

Argumentet n anger antalet tal som skall sorteras och räknas från index ett. 
Talen ligger lagrade i vektorn a. Som du kanske minns inträffar fall då element 
skall byta plats. Vi skulle då kunna använda en procedur Swaplnt, som gör detta. 

procedure InsertSort(n:integer; var a:heltalsvektor); 

var i,j : integer; 

procedure Swaplnt(var a,b:integer); 
var temp:integer; 
begin 

temp:=a; 

a:=b; 

b:=temp; 

end; { Swaplnt } 

begin { InsertSort } 
a[0]:=-999; 

for i:=2 to n do begin 

j:=i; 

while a[j]<a[j-1] do begin 

Swaplnt(a[j],a[j-1]); { byt element } 

j:=j-i; 

end; 

end; 

end; { InsertSort } 


Andra funktioner och procedurer kan inte använda proceduren Swaplnt eftersom den 
är deklarerad lokalt inne i proceduren InsertSort. Swaplnt är en lokal procedur! 
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Man kunde vidare låtit bli att deklarera Swaplnt med en argumentlista. Vektorn 
a, som är en lokal array i proceduren InsertSort, är nämligen en global variabel 
i proceduren Swaplnt! 


Vi kunde t ex skrivit 

procedure Swaplnt; 
var temp:integer; 

begin 

temp:=a[j]; 
a[j ]:=a[j—1]; 
a[j-1]:=temp; 

end; 


132 


9 Funktioner - Rekursion 

Som vi har sett kan man föra ut data från en procedur genom att ändra på värdet 
av en variabel, som proceduren anropas med. Detta kräver att man i det överord¬ 
nade programmet har definierat denna variabel. 

Med hjälp av en annan typ av underprogram - funktioner - kan vi lösa detta på 
ett annat sätt. 

9.1 Deklaration av funktion. 

Funktioner fungerar precis som procedurer med enda undantaget att de returnerar 
ett värde. Detta värdet kan man lagra i en lämplig variabel, använda som argu¬ 
ment till en procedur eller skriva ut på skärmen etc. 

Eftersom en funktion skall returnera ett värde måste funktionen typdeklareras 
precis som en variabel typdeklareras. 

En funktionsdeklaration kan se ut så här: 

function Namn(pari,par2:partypl2; par3:partyp3):funktyp; 

Ordet function är ett reserverat ord. Funktionen namnges precis som vid en pro¬ 
cedur. Den kan ha en eller flera parametrar eller ingen alls. Det som är nytt är 
att den typdeklareras, i exemplet ovan med typen funktyp. 


funktioners returvärde måste vara av enkel datatyp, dvs 
funktionstypen kan vara en heltalstyp, real, char eller boolean. 
I lurbo Pascal kan även strängar returneras. 


9.2 Exempel på funktionsdeklarationer. 

Antag att vi vill skriva en funktion som beräknar kvadraten på ett tal. Deklara¬ 
tionen skulle kunna se ut så här: 

function Kvadrat(x:real):real; 

begin 

Kvadrat:=x*x; 

end; 

Denna funktion kan som argument ta flyttal eller heltal och returnerar ett flyt¬ 
tal. 

Observera att själva funktionen - funktionsnamnet - sätts lika med resultatet. 


Funktionen Kvadrat ovan finns fördefinierad i Pascal - Sgr(x) beräknar kvadraten 
på x. Vi skulle mycket väl kunna ha kallat Kvadrat för Sgr. I så fall hade det 
varit 'vår' funktion som hade använts när Sqr anropades. 

Fördefinierade funktioner och procedurer kan omdefinieras. Man bör emellertid 
undvika detta då det lätt leder till förvecklingar. 


Låt oss använda vår funktion Kvadrat för att göra en kvadrattabell! 
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Exempel 9.1 

program KvadratTabell; 
var i : integer; 


function Kvadrat(x:real):real; 

{ Här 

börjar 

funktionen } 

begin 




Kvadrat:=x*x; 




end; 

{ Här 

slutar 

funktionen } 

begin 

{ Här 

börjar 

huvudprogrammet 


Writeln( 'Kvadrattabell'); 

Writeln('från 1 till 100'); 

Writeln( '-'); 

for i:=1 to 100 do 

Write(Kvadrat(i):8:0); 

Writeln; 

end. { Här slutar programmet } 


Exempel 9.2 

Antag att vi vill göra en funktion som summerar n st termer i summan 

1+2+3+4+5+6+7+. 

Funktionen kan då se ut så här 

function Sum(n:integer):integer; 
var i:integer; 

res:integer; 
begin 
res:=0; 
i: =1; 

while i<=n do begin 
res:=res+i; 
i:=i+1; 

end; 

Sum:=res; 

end; 

Lägg märke till hur namnet på funktionen tilldelas det värde som skall returne- 
ras. 


Exempel 9.3 Euklides algoritm. 

Det finns en berömd gammal algoritm, Euklides algoritm, som beräknar det största 
tal, som två andra tal är delbara med. Principen är följande. Antag att du vill 
bestämma den största gemensamma delaren till talen a och b. 

Du delar då först a med b och får en rest r. Därefter delar du b med resten r 
och får kanske en ny rest r^. Sedan delar du r med r^ och får en ny rest r2* 

Så här håller du på tills du får en rest r , som blir noll. Då är föregående 
rest just det tal du söker. 
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function Sgd(a,b:integer):integer; 
var r:integer; 

begin 

r:=a mod b; { resten vid divisionen a/b } 

while r<>0 do begin 

a:=b; 

b:=r; 

r:=a mod b; 

end; 

Sgd:=b; { den sista resten som ej är noll} 

end; 


Exempel 9.4 

En funktion som beräknar momsen på en vara kan se ut så här: 

function Moms(pris:real):real; 
const momssats=0.2346; 

begin 

Moms:=momssats*pris; 

end; 


Exempel 9.3 

Då nya funktioner skall definieras i ett program kan man utnyttja redan tidigare 
definierade funktioner. Vi använde procedurer på ett liknande sätt i det förra 
kapitlet. 

Antag att funktionen Moms redan är definierad. En funktion som beräknar priset 
med moms kan då se ut så här: 

function PrisMedMoms(pris:real):real; 

begin 

PrisMedMoms:=pris+Moms(pris); 

end; 


Exempel 9.6 

De två funktionerna ovan utnyttjas i följande programexempel. 

program Fpris; 
var pris:real; 

function Moms(pris:real):real; 
const momssats=0.2346; 

begin 

Moms:=momssats*pris; 

end; 

function PrisMedMoms(pris:real):real; 

begin 

PrisMedMoms:=pris+Moms(pris); 

end; 
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begin 

Writeln('Avsluta programmet genom att ange priset 0'); 

Write( 'Pris(kr): ; 

Readln(pris); 

while prisOO do begin 

Writeln('Pris:',pris:5:2, ' kr'); 

Writeln( 'Moms: ',Moms(pris):5:2, ' kr '); 

Writeln('Pris med moms: ',PrisMedMoms(pris):5:2, ' kr'); 

Write( 'Pris(kr): '); 

Readln(pris); 
end; 
end. 

9.3 Rekursiva underprogram. 

Vi har tidigare sagt att en identifierare måste vara deklarerad innan den an¬ 
vänds. När det gäller underprogram såg vi i avsnittet om forward-deklarationen 
att det räcker med själva huvudet, dvs ordet procedure eller function, identi- 
fierarnamnet och en eventuell parameterlista. 

Detta gör det möjligt att i deklarationen av ett underprogram använda underprog¬ 
rammet självt! 

Anta att vi vill beräkna produkten 1*2*3*4..,*n. 

Denna produkt brukar man kalla för n-fakultet och den skrivs n! 

Ex 5!=1*2*3*4*5. Denna produkt är 120. 

Exempel 9.7 Vi gör en funktion Nfak, som klarar detta till oss. 

function Nfak(n:integer):real; 

begin 

if n=1 then Om n=1 blir 

Nfak:=1 resultatet ett. 1!=1. 

else Annars 

Nfak:=n*Nfak(n-1); returnerar vi värdet av n*(n-1)! 

end; 

Kan detta stämma? Låt oss testa funktionen i ett program. 

Exempel 9.8 

program RekTest; 
uses Crt; 
var tal:integer; 
ch:char; 

function Nfak(n:integer):real; 

begin 

if n=1 then 
Nfak:=1 
else 

Nfak:=n*Nfak(n-1); 

end; 

begin 

repeat 

ClrScr; 

Writeln('fest av rekursiva funktioner. Beräkning av n!'); 

Write('Ange ett tal: '); 
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Readln(tal); 

GotoXY(1,4); 

Writeln; 

Writeln(tal:1,'! = ',Nfak(tal):1:0); 

Write('Fler gånger? '); 

Readln(ch); 

until not (ch in [ 'J ', 'j ']); 

end. 

Testar du programmet så ser du att funktionen Nfak räknar rätt. 

Men hur kan det fungera? För att lättare se detta skriver vi om Nfak och förser 
det med lämpliga utskrifter så att vi ser vad som händer. Vi lägger dessutom 
till en procedur Djup som håller reda på hur många gånger funktionen Nfak anro¬ 
pas innan den är klar. 

Exempel 9.9 

program RekTest; 
uses Crt; 
var tal:integer; 
res:real; 
x:integer; 
ch:char; 

procedure Djup(done:boolean); 
const up= '—>'; 

down= '<— '; 
var y: integer; 

dir:string[3]; 

begin 

if done then begin 

dir:=down; 

end 

else begin 
dir:=up; 
x:=x+1; 

end; 

y: =WhereY; 

GotoXY(x,y); 

Write(dir,x, ' '); 

end; 

function Nfak(n:integer):real; 
var temp:real; 

begin 

if n=1 then begin 

Djup(false); 

Writeln( 'Anrop=1, Klart. Returvärde=1 '); 

Nfak:=1 

end 

else begin 

Djup(false); 

Writeln('På väg upp. Anrop= ',n:1); 
temp:=Nfak(n-1); 

Djup(true); 

Writeln('På väg ner. Returnerar ' ,n:1, '* ',temp:1:0, '= ',n*temp:1:0); 

Nfak:=n*temp; 

end; 

end; 
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begin 
repeat 

ClrScr; 

WritelnC 'Test av rekursiva funktioner. Beräkning av n! ')| 

Write('Ange ett tal:'); 

Readln(tal); 

GotoXY(1,4); 

x: =0; 

res:=Nfak(tal); 

Writeln; 

Writeln(tal:1, '!= ',res:1:0); 

Write('Fler gånger? '); 

Readln(ch); 

until not (ch in ['J','j']); 

end. 

Då programmet körs kommer man att få följande utskrift: 

Test av rekursiva funktioner. Beräkning av n! 

Ange ett tal:4 

—>1 På väg upp. Anrop=4 
—>2 På väg upp. Anrop=3 
—>3 På väg upp. Anrop=2 
—>4 Anrop=1, Klart. Returvärde=1 
<—3 På väg ner. Returnerar 2*1=2 
<—2 På väg ner. Returnerar 3*2=6 
<—1 På väg ner. Returnerar 4*6=24 

4! =24 

Fler gånger? 

Funktionen Nfak kommer alltså att anropa sig själv tills den kan returnera talet 
ett. Detta enkla fall utgör ett stopp på rekursionen. 

Vid varje anrop av Nfak läggs i datorn upp ett nytt utrymme som skall rymma alla 
lokala variabler. Då Nfak anropades ovan, måste den anropa sig själv ytterligare 
tre gånger innan den blev klar. Då det fjärde anropet gjorts fanns alltså fyra 
sådana aktiva utrymmen i datorn. När Nfak efter varje anrop är klar, återlämnas 
detta utrymme åter till det lediga programutrymmet. 

En rekursiv funktion är mycket minneskrävande och exekverar långsammare än 
om den skrivs på vanligt sätt. Den löser emellertid ofta komplicerade prob¬ 
lem på ett enkelt sätt och resulterar mestadels i en mycket kompakt och 
elegant programkod. 

Exempel 9.10 

Ett program som skriver ut alfabetet rekursivt kan se ut så här: 
program Alfa; 

procedure SkrivAlfa(ch:char); 
begin 

Write(ch); 

if ch= 'Z' then { Här stoppar rekursionen } 

Writeln 

else 

SkrivAlfa(succ(ch)); 

end; 


Anrop nr 1. Minns talet 4 och begär 3! 

Anrop nr 2. 3 2! 

Anrop nr 3. 2 1 ! 

Anrop nr 4. Returnerar talet 1 

Anrop nr 3. Kan nu returnera 2*1=2 

Anrop nr 2. 3*2=6 

Anrop nr 1. 4*6=24 
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begin 

Writeln( 'Utskrift av alfabetet.'); 
SkrivAlfa('A'); 

end. 


Exempel 9.11 

I kapitel 5 visar vi ett grafikexempel (exempel 5.23) på en käpp som rör sig 
från det övre vänstra hörnet ner till det högra samtidigt som den roterar kring 
sin medelpunkt. Låt oss göra om detta till en rekursiv procedur. 

program TrasMatta; 
uses Crt,Graph; 

var 

graphDriver, 
graphMode, 

maxX,maxY : integer; 

ch : char; 


procedure Initialize; 

begin 

graphDriver:=detect; 
InitGraph(graphDriver,graphMode, ''); 
if GraphResultOgrOk then 
Halt(1); 
maxX:=GetMaxX; 
maxY:=GetMaxY; 
end; 


procedure DrawStick(x,y,r,v:real);{ Om du får Error 202:Stack overflow error.} 
var dx,dy:real; {Öka stacken i Options/Compiler/memory sizes,} 

begin {t ex Stack size till 25000 se sidan 227 } 


if Round(x)<maxX-20 then begin 
SetColor(Random(GetMaxColor)+1); 
dx:=r*cos(v); 
dy:=r*sin(v); 

Line(Round(x-dx),Round(y+dy), 
Round(x+dx),Round(y-dy)); 
DrawStick(x+1,y+0.5,r,v+0.01); 
SetColor(black); 

Line(Round(x-dx),Round(y+dy), 
Round(x+dx),Round(y-dy)); 

end 

else ch:=ReadKey; 


end; 


Om x < maxX-20 så ritar vi en ny pinne 
Välj färg på pinnen. 

Beräkna ändpunkternas lägen i förhål¬ 
lande till mittpunkten (x,y). 

Rita pinnen. 

Rita nya pinnar (tills x>=maxX-20). 
Välj svart färg att sudda pinnen med. 
Sudda pinnen. 


Om x>=maxX-20 så vänta tills tangent 
trycks ner. 


Här börjar huvudprogrammet } 


begin { 

Initialize; 

SetTextJusti fy(centerText,topText); 

OutTextXY(maxX div 2,0, 'Trasmattan vecklas ihop'); 
OutTextXY(maxX div 2,TextHeight('a '), 

'om tangent trycks ned.'); 


DrawStick(10,10,50,60*Pi/180); 
CloseGraph; 

end. 
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Rekursionen börjar med satsen 

DrawStick(10,10,50,60*Pi/180); 

I proceduren DrawStick kontrolleras först att x-koordinaten för pinnens medel¬ 
punkt inte är för stor. Denna kontroll innebär ett stoppvillkor för rekursionen. 
Eftersom x-koordinaten för punkten (10,10) inte uppfyller stoppvillkoret ritas 
pinnen. Därefter anropar proceduren Paint sig själv och begär att en ny pinne 
skall ritas lite längre ner på skärmen. När detta anrop av Paint till sig själv 
är klart, suddas den pinne som ritades innan anropet. 

Vid varje anrop av Paint ritas en pinne, därefter anropar Paint sig själv och 
suddar sedan den pinne som ritades innan anropet. Detta innebär att innan en 
pinne kan suddas, kommer alla pinnar att först ritas ut tills stoppvillkoret för 
rekursionen inträffar. Först då kommer alla pinnarna att suddas med början på 
den pinne som ritades sist. 


Exempel 9.12 

Programexempel med en rekursiv funktion Paint. 

program PaintRek; 
uses Crt,Graph; 

var 

graphDriver, 
graphMode, 

maxX,maxY : integer; 

ch : char; 

paintcolor : integer; { Global variabel för att spara minne } 

procedure Initialize; 
begin 

graphDriver:=detect; 

InitGraph(graphDriver,graphMode, ''); 
if GraphResultOgrOk then 
Halt(1); 
maxX:=GetMaxX; 
maxY:=GetMaxY; 


end; { Om du får Error 202:Stack overflow error. } 

procedure Paint(x,y:integer); { Öka stacken i Options/Compiler/Memory sizes,} 
begin { t ex Stack size till 30000 se sidan 227 } 

if GetPixel(x,y)=0 then begin 

{ 0m du lägger in en fördröjning här, så } 

{ kan du tydligare se vad som händer } 

PutPixel(x,y,paintcolor); 

Paint(x+1,y); { Rita till höger om x,y } 

Paint(x,y-1); { Rita ovanför x,y } 

Paint(x-1,y); { Rita till vänster om x,y } 

Paint(x,y+1); { Rita nedanför x,y } 

end; 

end; 

begin { Här börjar huvudprogrammet } 

Initialize; 

SetColor(3); 

Circle(130,100,30); { Rita en cirkel i färg 3 } 

Circle(170,90,50); { Rita en cirkel till } 
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SetColor(2); 

Line(90,140,170,40); 

paintcolor:=1; 

Paint(150,100); 

paintcolor:=2; 

Paint(110,100); 

paintcolor:=3; 

Paint(150,130); 

paintcolor:=2; 

Paint(170,60); 

paintcolor:=3; 

Paint(150,60); 

paintcolor:=1; 

Paint(140,70); 

SetColor(GetMaxColor); 

0utTextXY(10,maxY-TextHeight( 'H '), 

'Avsluta programmet med ENTER.'); 

ch: =ReadKey; 

CloseGraph; 

end. 

Varje gång proceduren Paint anropas kontrolleras om punkten (x,y) är ritad med 
någon färg. 0m så är fallet händer ingenting. 

0m punkten inte är färglagd, så färgläggs den. Därefter anropar Paint sig själv 
och försöker fylla de fyra omgivande punkterna. 

Man ser tydligt då programmet exekveras att Paint först fyller allt åt höger, 
därefter uppåt, åt vänster och slutligen neråt. 

Innan arean är färglagd är det många anrop som Paint gör till sig själv. Paint 
har visserligen bara två heltalsparametrar, men det är mycket minne som går åt 
ändå. Provar du med ett större värde på cirkelns radie är det troligt att du får 
exekveringsfel - minnet slut. 

Proceduren Paint utgör ett utmärkt exempel på en rekursiv procedur som är mycket 
svår att åstadkomma med en "rak" kod. 


{ och en linje som skär cirklarna } 

{ Fyll nu de olika areorna } 


Exempel 9.13 

I Pascal saknas den matematiska funktionen a° (a upphöjt till b). Vi förutsät¬ 
ter här att b är ett heltal och a ett flyttal. Vidare måste gälla att a <> 0 om 
b < 0, annars är potensuttrycket odefinierat. 

Vi skall försöka skriva en funktion, Power(a,b), som klarar denna beräkning. 

Ett enkelt sätt att lösa detta är att multiplicera a med sig självt b gånger. 

T ex som i följande iterativa algoritm 
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function Power(a:real; b:integer):real; 
var i :integer; 
res:real; 

begin 

res:=1; 

for i:=1 to b do 
res:=res*a; 

Power:=res; 

end; 


Om vi vill beräkna måste vi utföra 64 multiplikationer. Varje flyttalsmul- 
tiplikation kostar mycket i tid. 

Kan vi åstadkomma bättre än så? Först sorterar vi ut ett par enkla fall: 


blir a = a = a. 

där (-b) är positivt. 

Innan vi ger oss i kast med det allmänna fallet låt oss beräkna 
Det gäller att 

21 j _ 2 ° * 2 ° *2 — ( 2°)^*2 
Vi kan alltså beräkna 2^ som (2^^ ^)^*2. 

Allmänt: Om b är udda blir a* 3 = (a^* 3 t **' v ^ )^*a 
b 


Om 

b=0 

blir 

Om 

b=1 

blir 

Om 

b<0 

blir 


jämnt 


(b div 2))2 


Vi har nu nödvändiga fakta för att kunna skriva en rekursiv variant av Power, 
där vi bortser från fallet då a=0 och b<0. Potensuttrycket är då inte definie¬ 
rat . 


Exempel 9.14 

function Power(a:real; b:integer):real; 

begin 

if b<0 then 

Power:=1/Power(a,-b) 
else if b=0 then 
Power:=1 

else if b=1 then 

Power:=a 

else if Odd(b) then 

Power:=Sgr(Power(a,b div 2))*a 

else 

Power:=Sgr(Power(a,b div 2)); 

end; 


Här har vi nu funnit ett fall då rekursionen inte bara ger en kompakt kod utan 
dessutom är mycket effektiv. Även om det nu är fråga om olika algoritmer. 

Vid beräkningen av 2^ behövs i den rekursiva varianten av Power endast sex (6) 
multiplikationer! Detta bör du själv övertyga dig om. 
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9.4 Includefiler. 


Vi är nu istånd till att skaffa oss ett bibliotek av funktioner och procedurer 
som är generella och användbara i de flesta program. På detta sätt behöver vi 
inte 'uppfinna hjulet' varje gång vi skall skriva ett nytt program. 

Proceduren Swaplnt i avsnittet om procedurer kan vara en bra subrutin (underp¬ 
rogram) att ha. 

För att slippa skriva den varje gång gör du så här. 

Skriv in den i datorn precis som den ser ut, dvs 

procedure Swaplnt (var a,b:integer); 
var temp:integer; 
begin 

temp:=a; 
a: =b; 
b:=temp; 

end; 

Kompilera därefter proceduren. Du måste då efter proceduren lägga till begin 
end. Du bör kompilera proceduren för att vara säker på att den fungerar. 

Tag därefter bort begin end. Även punkten. 

Spara sedan proceduren under något lämpligt filnamn, t ex SWAPINT.PAS 

Den är nu tillgänglig varje gång när du skriver ett annat program. Du skriver då 

bara efter dina variabeldeklarationer i huvudprogrammet satsen 

{$1 SWAPINT.PAS } Obs! mellanslag mellan $1 och SWAPINT.PAS. 

Kompilatorn går då ut på skivan och letar upp filen med detta namn och inklude¬ 
rar innehållet i denna fil i programmet. 

Exempel 9.15 

program Include; 
uses Crt; 
var x,y:integer; 

{$1 SWAPINT.PAS } 

begin 

ClrScr; 

GotoXY(1,10); 

Writeln('Ange två tal.'); 

Write('Första talet:'); 

Readln(x); 

Write('Andra talet :'); 

Readln(y); 

Swaplnt(x,y); 

Writeln('Efter byte är första talet ',x,' och andra talet ',y); 

end. 
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9.5 Ett avslutande programexempel. 

Som avslutning på avsnittet om funktioner visar vi ett program som är ganska 
matematisk orienterat. Det beräknar vinklarna i en triangel och dess area då man 
känner triangelns sidor. 


T riangelsolvering. 

Om man känner de tre sidorna, a, b och c, i en triangel kan man beräkna vinkeln 
v mellan sidorna a och b med hjälp av cosinussatsen 

c 2 = a 2 + b 2 -2*a*b*cos(v). 

Ur detta samband kan man beräkna vinkeln v. 

cos(v) = (a 2 + b 2 - c 2 )/(2*a*b) 

Ett problem här är att det i Pascal (och i de flesta andra programspråk) inte 
finns funktionen arccos(v) som beräknar vinkeln v då man känner cos(v). 

Däremot finns funktionen arctan(v), som beräknar v uttryckt i radianer, då man 
vet värdet av tan(v). 

Eftersom v är en vinkel i en triangel gäller 0 < v < 180°. 

Med hjälp av den "trigonometriska ettan" blir då 

sin(v) = V 1-cos(v)*cos(v). 

Division med cos(v) ger 

tan(v) = V 1-cos(v)*cos(v) /cos(v). 


Om vi därför löser ut cos(v) ur cosinussatsen, kan vi beräkna värdet av tan(v) 
enligt uttrycket ovan och därefter beräkna vinkeln med funktionen arctan(v). 

Två specialfall måste emellertid undersökas: 

Vi bör innan divisionen med cos(v) först kontrollera om cos(v)=0. I detta fall 
är vinkeln 90°. 

Om vinkeln ligger i intervallet 90°<v<180°, blir cos(v) negativ och därför också 
tan(v) negativ i uttrycket ovan. 

Detta ger då en negativ vinkel. Den korrekta vinkeln erhålles om man adderar 
180°. 


Om man känner vinkeln v mellan sidorna a och b i en triangel kan man beräkna 
arean av triangeln ur sambandet (areasatsen) 

A = a*b*sin(v)/2. 

Dessa principer utnyttjas i programmet Solvera nedan. I detta efterfrågas tri¬ 
angelns sidor, varefter samtliga vinklar i triangeln och triangelns area beräk¬ 
nas. 
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program Solvera; 
var a,b,c:real; 

function Vinkel(a,b,c:real):real; 
var t,x,v:real; 

begin 

t:=(a*a+b*b-c*c)/(2*a*b); { t = cos(v) } 

if t=0 then 
v: -Pi/2 

else begin 

x:=Sqrt(1-t*t)/t; { x = tan(v) } 

v:=Arctan(x); { vinkeln i radianer } 

end; 

if t>=0 then 

Vinkel:=v*180/Pi { vinkeln i grader } 

Vinkel:=v*180/Pi+180; 

end; 

function Area(a,b,v:real):real; 

begin 

v:=v*Pi/180; { Omvandla vinkeln till radianer } 

Area:=a*b*Sin(v)/2; 

end; 


{ Här börjar själva programmet -} 

begin 

Writeln('Detta program beräknar vinklarna i en triangel'); 
Writeln('och triangelns area.'); 

Writeln; 

Writeln( 'Ange längden av de tre sidorna, a, b och c.'); 
Write( 'a= '); 

Readln(a); 

Write( 'b= '); 

Readln(b); 

Write( 'c= '); 

Readln(c); 

Writeln; 

Writeln('Sida ':15,' Motstående vinkel (grader)'); 


Writeln( '-'); 

Writeln(a:15:2,Vinkel(b,c,a):15:2); { Här beräknas 

Writeln(b:15:2,Vinkel(a,c,b):15:2); 

Writeln(c:15:2,Vinkel(a,b,c):15:2); 

Writeln; { Här beräknas 


Writeln( 'Triangelns area: ',Area(a,b,Vinkel(a,b,c)):14:2); 

end. 


vinklarna 


arean 









10 Pascalenheter, units i Turbo Pascal 4.0 

I kapitel 9 tar vi upp begreppet includefiler. Detta ger oss möjligheter att 
dela upp ett program i ett antal separata filer och därefter inkludera dessa 
filer i ett huvudprogram. Vinsten med detta är att vi kan skaffa oss ett biblio¬ 
tek av funktioner och procedurer som är generella och sedan använda dessa som 
byggstenar. Nackdelen med att arbeta med includefiler är, att om vi gör ett fel 
någonstans i vårt huvudprogram t ex glömmer ett semikolon vilket medför kompile- 
ringsfel måste även samtliga includefiler kompileras om. Att vänta på att en 
kompilering skall avslutas kan vi väl i och för sig tåla. Värre är att i och med 
att includefiler ingår som en del av huvudprogrammet kan programmet som helhet 
ej bli större än 64 kb. 

I Turbo Pascal finns det möjlighet att skriva egna enheter och sedan länka, sam¬ 
mankoppla, dessa i olika program. Med hjälp av enheter kan programkoden teore¬ 
tiskt bli 640 kb. 

Varje enhet tar en del av datorns minne dock max 64 kb. Varje enhet kompileras 
separat och sparas som fil med extension TPU. Att arbeta med Pascalenheter är i 
grunden det samma som att arbeta med includefiler. Dvs dela upp programmet i väl 
avgränsade enheter. 

En stor fördel med enheter är som vi snart skall se att vi kan bygga strikt av¬ 
gränsade och definierade kopplingar mellan enheter och huvudprogram. Enheter kan 
separatkompileras men kan ej köras individuellt utan måste köras tillsammans med 
ett huvudprogram som är länkat med enheten. 

10.1 Standard enheter. 

Turbo Pascal innehåller sju fördefinierade enheter sk standard enheter. Dessa 
är: 


System Graph Dos Crt Printer Turbo3 Graph3 

Samtliga enheter finns lagrade i filen TURBO.TPL (Turbo Pascal Library). När 
identifierarna i en enhet skall användas i ett program är det bara att ange en¬ 
hetens namn efter kommandot uses. Vilka identifierare som ingår i de olika enhe¬ 
terna beskrivs i kapitel 16 SAMMANSTÄLLNING AV TURBO PASCAL ENHETER. 

Första gången vi använde en procedur i en av enheterna var i exempel 2.3. Proce¬ 
duren var ClrScr och fanns i enheten Crt. För att kunna använda proceduren 
ClrScr måste raden 

uses Crt; 

tillfogas programmet. Med hjälp av det reserverade ordet uses, knyts enheter 
till program. 
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Exempel 10.1. 


För att programmet Test skall få tillgång till identifierarna i enheten Crt och 
Graph anges detta på följande sätt. 

program Test; 
uses Crt, G 

var 

begin 


end. 


System. 

Enheten System länkas alltid in till varje program man skriver och behöver där¬ 
för inte anges efter ordet uses. Enheten innehåller alla de procedurer och funk¬ 
tioner som är standard i Turbo Pascal. 

Crt. 

Innehåller rutiner som rör text på bildskärmen, tangentbordet och högtalaren 
(ljud). 

Printer. 

Printer är en liten enhet vars enda syfte är att underlätta utskrifter på skri¬ 
vare från ett program. I enheten Printer deklareras en textfil, Lst, som kopplas 
till skrivarutgången på datorn. 

Exempel. 

Writeln(Lst,'Denna text hamnar på pappret i skrivaren!'); 


raph; 


Enheterna deklareras alltså under programhuvudet. 

Om flera enheter skall ingå, åtskiljs dessa av komma¬ 
tecken. Ordningsföljden är viktig. Eftersom enheten 
Graph använder enheten Crt, måste Crt anges före 
Graph. Om inga enheter anges kommer ändå enheten 
System att länkas in automatiskt. 


Dos. 

Dos innehåller ett antal funktioner och procedurer t ex GetTime och SetTime. 

Graph. 

Graph innehåller kraftfulla grafikrutiner och supportrar CGA, EGA, Hercules, 

AT & T 400, MCGA, 3270 PC och VGA grafik. Använder enheten Crt. 

Graph3 och Turbo3. 

Enheterna Turbo3 och Graph3 används för att kunna få program och datafiler ska¬ 
pade med Turbo Pascal ver 3.0 kompatibla med Turbo Pascal ver 4.0. Graph3 är en 
kombination av GRAPH.P och GRAPH.BIN. 

uses Crt,Graph3; Används Turbo3 eller Graph3 måste dessa föregås av 
Crt, då denna används av dessa. 

Turbo3 innehåller alla de fördefinierade procedurer, funktioner, konstanter och 
variabler i 3.0 som inte längre är standard i ver 4.0. 
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Funktionstangenten F1. 

Om du arbetar med Turbo Pascal och trycker på funktionstangenten Fl två gånger 
visas ett informationsfönster med text (hjälpmeny). 


File Edit Run Compile Options 



Backup source toggle Debug info toggle 
Boolean eval toggle Destination item 
Build item Directories item 

Change dir item Directory item 

Character set Dos unit 

Compile command Edit auto save 

Compile item Edit command 

- Compiler menu Editing commands 

Conditional defines Edit window 
A:\ >turbo Config auto save Environment menu 

Crt unit Error messages 

Executable dir opt 

-PgDn— 


Fl-Help index -Pick topic <—l-Go to topic Esc-Exit Help 


Tryck på PgDn två gånger och välj sedan units. 

File Edit Run Compile Options 


----- Edit 

Line 1 Col 1 Insert Indent 

A:N0NAME.PAS 

Inde 

Pick item 

Stack-checking toggle 


Primary fi le item 

System unit 


Printer unit 



Procedures 

Turbo3 unit 


Quit item 

Turbo dir item 


Range-checking 

Turbo Pascal map 


Reserved words 

Unit dir item 


Retain saved screen 

Units 





Save item 

Windows 


A:\ >turbo Save options 

Write to item 


Screen size item 

Zoom Windows 





Fl-Help index -Pick topic <—i-Go to topic Esc-Exit Help 


Här kan du nu välja den unit, enhet, som du vill specialstudera. Du kan även få 
information om de olika funktionerna och procedurerna som ingår i respektive 
enhet. I kapitel 16 beskrivs också samtliga standard enheter. 


10.2 Skapa egna enheter. 

En enhet inleds med det reserverade ordet unit och består därefter av två delar, 
interfacedelen och implementationsdelen. Enheten avslutas på samma sätt som ett 
pascalprogram dvs med det reserverade ordet end följt av en punkt. 


148 





Jämförelse mellan pascalprogram och pascalenhet: 



Pascalprogram: 

Pascalenhet: 

proqram 

<programnamn>; 

unit <namn>; 



interface <interfacedel> 

uses 

<koppla ev Pascalenheter till 

uses <lista på de units som an- 


programmet >; 

vänds>; 

const 

<deklaration av konstanter>; 

implementation <implementationsdel> 

var 

<deklaration av variabler>; 


begin 

<här står de satser som skall 

begin 


utföras i programmet>; 

<initierings koder>; 

end. 


end. 


Interfacedelen. 

Denna del är "synlig" för andra program som använder enheten. Här kan konstan¬ 
ter, datatyper och variabler deklareras. Vidare anges huvudet på de funktioner 
och procedurer som skall kunna nås utifrån. Själva funktionerna och procedurerna 
implementeras, skapas däremot i implementationsdelen. Forwarddeklarationer är ej 
tillåtna. Konstanter, datatyper, variabler, procedurer och funktioner kan stå i 
vilken ordning som helst. Dessa kan också anges flera gånger. Om en funktion 
eller procedur är extern skall ordet external läggas till efter funktions- 
eller procedurhuvudet. 


Implementationsdelen. 

Denna del "ses" inte av de program som använder enheten. Programmen vet alltså 
inte om dess existens. Däremot kan det som är deklarerat i interfacedelen "ses" 
härifrån. Här implementeras de procedurer och funktioner vars huvud finns i in¬ 
terfacedelen. Dessa funktioner och procedurer kan användas av de program som har 
tillgång till enheten. I denna del görs även privata deklarationer av identifie¬ 
rare som inte kan nås av något program utifrån. Om proceduren eller funktionen 
är extern behöver den inte implementeras i implementationsdelen. 

I implementationsdelen är det också möjligt att ta med en initieringsdel. Mer om 
detta senare. 

begin 

<initierings koder>; { initieringsdel } 

end. 

Vi kommer nu att ge ett antal exempel på enheter, för att belysa hur dessa kan 
byggas upp och hur kopplingen mellan olika enheter och program fungerar. 

Exempel 10.2. 

I exemplet nedan visar vi hur man skriver en enhet. Vi kallar enheten Text och 
den innehåller en procedur Utskrift. Vid implementationen av proceduren vill vi 
använda instruktionen ClrScr, som finns i enheten Crt. Vi måste då länka ihop 
enheten Text med enheten Crt. En enhet kan använda andra enheter, som då mås¬ 
te anges i interfacedelen. För att andra program skall kunna använda proceduren 
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Utskrift måste vi deklarera procedurhuvudet för proceduren Utskrift i interface- 
delen. Om ett program länkas ihop med enheten Text kan proceduren Utskrift an¬ 
vändas i programmet precis på samma sätt som om proceduren var skriven i prog¬ 
rammet. Lägg märke till att enheten saknar initieringsdel. 

unit Text; 
interface 
uses Crt; 

procedure Utskrift; 

implementation 

procedure Utskrift; 
begin 

ClrScr; 

Writeln('Denna text kommer från en procedur i en enhet/unit. '); 
end; { Utskrift } 
end. { Slut på enheten Text } 

Enheten sparas under samma namn som anges efter unit dvs TEXT.PAS. Därefter kom¬ 
pileras enheten till disk med Alt-C. Välj därefter Destination Memory. Om du 
trycker på ENTER-tangenten ändras informationen till Destination Disk, vilket 
innebär att en kompilerad fil skapas. 


File Edit Run Compile Options 



Kompilera nu filen TEXT.PAS genom kommandot Compile. Som resultat skapas filen 
TEXT.TPU. 

Programmet UtskriftMedUnits nedan kan nu använda identifierarna i enheten Text. 

program UtskriftMedUnits; 
uses Text; 
begin 

Utskrift; 

end. 

Vid kompilering av programmet UtskriftMedUnits länkas (kopplas) enheten Text 
automatiskt till programmet. I och med att huvudprogrammet är länkat med enheten 
kan huvudprogrammet använda proceduren Utskrift. 

Lägg märke till att huvudet för proceduren Utskrift måste vara angiven i inter¬ 
facedelen för att programmet UtskriftMedUnits skall kunna använda den. 
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När vi kör programmet rensas först skärmen och markören placeras i vänstra hör¬ 
net av skärmen och följande text skrivs ut. 

Denna text kommer från en procedur i en enhet/unit. 

Det går även att kompilera med kommandot Make eller Build, se avsnitt 10.4. 

Exempel 10.3. 

I exemplet nedan vill vi visa hur variablers värden kan nås av program som är 
länkade till enheter. I enheten Tal kan variablerna, strängvariablerna och kons¬ 
tanten som är deklarerade i interfacedelen nås utifrån. I implementationsdelen 
tilldelas variablerna och strängvariablerna värden. 

unit Tal; 
interface 

const tal4 = 23; 
var tall ,tal2,tal3 
ordi,ord2 

implementation 

begin { initieringsdelen } 

tall := 1; 

tal2 := 8; 

tal3 := 2*tal2; 

ordi := 'Detta är fantastiskt!'; 

ord2 := 'Detta är initiering! '; 

end. 


{ GLOBALA } 

{ konstant } 

: integer; { variabler } 

: string[ 22]; { strängvariabler } 


Programmet VariabelTest använder identifierarna i enheten Tal. 


program VariabelTest; 
uses Tal; 
begin 

Writeln(ord2); 
Writeln(tall); 
Writeln(tal4); 
Writeln(tal3); 
tal2 := tal2*tal4; 
Writeln(tal2); 
Writeln(ord1); 
end. 


Programmet ger följande utskrift då det körs: 


Detta är initiering! 

1 

23 

16 

184 

Detta är fantastiskt! 


I enheten Tal är identifierarna tall, tal2, tal3, tal4, ordi och ord2 globala. 

De kan då nås från programmet VariabelTest. Vid körning av programmet exekveras 
först initieringsdelen i enheten Tal därefter satserna efter begin i huvudprog¬ 
rammet VariabelTest. Lägg märke till att enheten Text i exempel 10.2 saknar ini- 
tieringsdel. I enheter är det alltså möjligt att initiera värden i implementa¬ 
tionsdelen. Initieringsdelen börjar med begin och slutar med end följt av en 
punkt och därmed är enheten avslutad. 

Exempel 10.4 

När ett program använder sig av enheter exekveras initieringsdelen i enheterna 
först och därefter huvudprogrammet. Om ett program använder flera enheter, exek¬ 
veras enheternas initieringsdel i den ordning som anges i huvudprogrammet efter 
det reserverade ordet uses och därefter exekveras huvudprogrammet. Vi visar ett 
exempel på detta. 
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unit Ut; 
interface 

implementation 

begin 

{Initierings del} 

Writeln( 'Denna text kommer från enheten Ut.'); 

end. 

Program InitieringsTest länkas ihop med enheten Ut. 

program InitieringsTest; 
uses Ut; 
begin 

Writeln('Denna text kommer från huvudprogrammet.'); 

end. 

Om vi kör programmet InitieringsTest, får vi följande utskrift: 

Denna text kommer från enheten Ut. 

Denna text kommer från huvudprogrammet. 

Vi ser här att först exekveras initieringsdelen och därefter huvudprogrammet. 

Exempel 10.5. 

I enheten Tid nedan kan variablerna tim, min och sek nås utifrån eftersom dessa 
är deklarerade i interfacedelen. Även proceduren Omvandla kan användas av prog¬ 
ram som är sammanlänkade med enheten. Proceduren Omvandla omvandlar sekunder 
till timmar, minuter och sekunder. 

unit Tid; 
interface 
var 

tim,min,sek : integer; { GLOBALA VARIABLER } 

procedure Omvandla(var sek:integer); 

implementation 

procedure Omvandla(var sek:integer); 

begin 

tim := sek div 3600; 

min := (sek mod 3600) div 60; 

sek := sek mod 60; 

end; 

end. {initieringsdel saknas} 

När det gäller procedurer och funktioner som skall vara synliga utifrån, måste 
deras huvud anges komplett i interfacedelen dvs 

procedure 0mvandla(var sekrinteger); 

I implementationsdelen, behöver man inte ange parameterlistan dvs, det räcker 
med 


procedure Omvandla; 

men det går även bra att ange ett komplett procedurhuvud. 

Programmet Omvandlatid använder sig av identifierarna i enheten Tid. 
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program Omvandlatid; 
uses Tid; 
begin 

Write('Ange antal sekunder så får du dem i timmar, minuter och sekunder: '); 
Readln(sek); 

Omvandla(sek); 

Writeln('Timmar: ',tim); 

Writeln('Minuter: ',min); 

Writeln('Sekunder: ',sek); 
end. 

Exempel på körning: 

Ange antal sekunder så får du dem i timmar, minuter och sekunder: 876 
Timmar: 0 
Minuter: 14 
Sekunder: 36 

Program Omvandlatid använder proceduren Omvandla som om den fanns i huvudprog¬ 
rammet. Däremot är själva implementationen, uppbyggnaden av proceduren Omvandla 
dold för huvudprogrammet. 

Exempel 10.6. 

unit JaNej; 
interface 
uses Crt; 

var svar : char; { GLOBALA VARIABLER } 

kol, rad : integer; 
procedure SvaraJellerN; 

implementation 

procedure SvaraJellerN; 

begin 

GotoXY(kol,rad); 

ClrEol; 

Write('Svara JA eller NEJ: '); 

Readln(svar); 

while not (svar in [ 'j ', 'J ', 'n ', 'N ']) do begin 
GotoXY(kol,rad); 

ClrEol; 

Write( 'Svara JA eller NEJ: '); 

Readln(svar); 

end; 

end; {SvaraJellerN} 

end. 


Programmet Test använder sig av identifierarna i enheten JaNej 


program Test; 

uses JaNej, Crt; 
begin 
ClrScr; 
kol:=3; 
rad: =5; 
SvaraJellerN; 
end. 


När programmet Test körs kommer skärmen att tömmas och 
på rad fem och kolumn fem kommer texten "Svara JA 
eller NEJ" att skrivas ut. Om inte svaret börjar på 
tecknet j, J, n eller N kommer texten att raderas 
(ClrEol) och frågan upprepas. Programmet avslutas om 
j, J, n eller N anges. 
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Exempel 10.7. 


unit Ber; 
interface 

var tal4 : integer; { GLOBAL VARIABEL } 

function Addera(tall:integer):integer; { tall är värdeparameter } 

function Sub(var tal2 : integer):integer; { tal2 är varparameter } 

implementation 

var tal3 : integer; { LOKAL VARIABEL } 

function Addera(tall:integer):integer; 

begin 

tall := 2 + tall; 

Addera := tall + 2; 

end; 

function Sub(var tal2 : integer):integer; 

begin 

tal2 := 2 + tal2; 
sub := tal2 - 1; 

end; 

begin 

tal3 
tal4 

end. 

Programmet Enheter använder sig av identifierarna i enheten Ber. 

program Enheter; 
uses Ber; 

var tal1,tal2 : integer; 
begin 
Writeln; 

Writeln('I enheten Ber kan jag nå värdet av tal4 som har värdet ',tal4); 
Writeln('Däremot kan jag inte nå värdet av talet tal3.'); 

Writeln('Nu testar vi funktionerna som finns i enheten Ber.'); 

Writeln; 
tall := 3; 

Writeln('Tall har nu värdet ',tal 1); 

Writeln('Funktionen Addera returnerar värdet ',Addera(tal1)); 

Writeln('Tall har nu värdet ',tall); 

Writeln('Tall är deklarerad som värdeparameter '); 
tal2 := 3; 

Writeln('Tal2 har nu värdet ',tal2); 

Writeln('Funktionen Sub returnerar värdet ',Sub(tal2)); 

Writeln('Tal2 har nu värdet ',tal2); 

Writeln('Tal2 är deklarerad som varparameter .'); 

end. 


:= 10; { initieringsdel } 

:= tal3 + 10; 
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Resultat av körning av programmet enheter: 

I enheten Ber kan jag nå värdet av tal4 som har värdet 20 
Däremot kan jag inte nå värdet av talet tal3. 

Nu testar vi funktionerna som finns i enheten ber 

Tall har nu värdet 5 

Funktionen Addera returnerar värdet 9 

Tall har nu värdet 5 

Tall är deklarerad som värdeparameter 

Tal2 har nu värdet 5 

Funktionen Sub returnerar värdet 6 

Tal2 har nu värdet 7 

Tal2 är deklarerad som varparameter 

Exempel 10.8. 

Vi ger här ett exempel på en enhet som konverterar små bokstäver till stora, 
även å,ä och Ö 


unit Sv; 
interface 

function KonvS(ch:char):char; 

implementation 

function KonvS(ch:char)rchar; 

begin 

case ord(ch) of 

97..122: KonvS:= chr(ord(ch)-32); 


132 

KonvS: 

chr(142); 

{ ä till 

Ä 

134 

KonvS: 

chr(143); 

{ å till 

Ä 

148 

KonvS: 

chr(133) 

{ ö till 

Ö 

else 





KonvS: 

= ch; 





end; 

end; { slut på KonvS } 
end. { slut på Sv } 


Här visas hur enheten Sv används i programmet Omvandla. 

program Omvandla; 
uses Sv; 

procedure LasNamn; 
var 

namn : stringt 20]; 

m : integer; 

ch : char; 

begin 

Write( 'Ange ett namn: '); 

Readln(namn); 
for m:=1 to 20 do begin 
ch: =namn[m]; 
namn[m]:=KonvS(ch); 
end; 

Writeln; 

Writeln('Namnet med stora bokstäver: namn); 

end; 
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begin {HUVUDPROGRAM} 
LasNamn; 

end. 


Exempel på körning av programmet Omvandla: 

Ange ett namn: julia åkesson 

Namnet med stora bokstäver: JULIA ÅKESSON 

10.3 Olika sätt att arbeta med Pascalenheter. 

Som vi nämnt innan kan vi med hjälp av enheter bygga upp programkoder som är 
större än 64 kb. 



Huvudprogrammet kan alltså kopplas till enheterna Enheti .. Enhet5, och på så 
sätt få tillgång till deras identifierare. Detta görs som vi angett förut efter 
ordet uses. Givetvis kan även enheter kopplas till varandra. Om t ex Enheti an¬ 
vänder identifierare från Enhet3 måste Enhet3 anges före Enheti i huvudprogram¬ 
met. 

program Test; 

uses Enhet3, Enheti, Enhet2, Enhet4, Enhet5; 

När huvudprogrammet skall exekveras kommer datorn att först undersöka respektive 
enhets initieringssektion och initiera ev variabler. Denna initiering sker i den 
ordning som enheterna är uppräknade efter ordet uses. Om flera enheter initierar 
samma variabel kommer variabeln att erhålla det värde som den sista initieringen 
ger. Efter det att datorn gått igenom alla initieringssaktioner exekveras huvud¬ 
programmet . 

Kompilera enheter. 

Enheter kompileras som vi nämnt förut precis som övriga program. Den enda skill¬ 
naden är att enheter erhåller extension TPU och vanliga pascalprogram EXE. När 
en enhet kompileras letar kompilatorn efter PAS-filen. Om denna ej finns uppstår 
kompileringsfel. Om en enhet läggs i en fil som inte har samma namn som enheten 
måste detta anges. Antag att vi lagrat enheten Ber i filen TEST.PAS, då kan inte 
kompilatorn hitta enheten Ber om vi inte anger var enheten Ber finns. Detta 
anger vi på följande sätt: 

uses {$U TEST.PAS} Ber; 

Obs! Kompileringsdirektivet U skall följa direkt efter $. Däremot skall det vara 
ett mellanslag mellan U och TEST.PAS. 
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10.4 Make eller Build. 

I kompileringsmenyn kan du bl a välja mellan att kompilera till diskett eller 
till minnet, Destination Memory eller Destination Disk. Den fil som är angiven 
som Primary file kompileras. 


FiLe Edit Run CompiLe Options 



Om ingen fil är specificerad kommer den fil som editeras att kompileras. 


Kompilera 


-c 


till RAM-minnet 
till diskett. 


Då ett huvudprogram kompileras och använder någon av de sju standardenheterna 
eller en till minnet redan kompilerad enhet, TPU-fil, är allt okej. Om huvudp¬ 
rogrammet använder enheter som inte är förkompilerade, utan dessa endast finns 
som PAS-filer uppstår kompileringsfel. Då måste först enheten kompileras till 
minnet, dvs vi skapar en fil med extension TPU. 

I Turbo Pascal finns det två sätt ytterligare att kompilera en fil, med Build 
eller Make. Om vi hade använt Build eller Make i fallet ovan hade även enheten 
med extension PAS kompilerats till en TPU-fil. 

Vad är skillnaden mellan Make och Build? Antag att du skrivit ett huvudprogram 
och till detta ett antal enheter. Om du nu skall kompilera ett program eller en 
av enheterna kan du välja mellan Build eller Make. 

Build innebär att huvudprogrammet och alla enheter (alla filer) som är kopplade 
till huvudprogrammet kommer att kompileras om. 

Make innebär att kompilatorn testar vilka filer som är är kopplade till den fil 
som skall kompileras. Om det då finns enheter som ändrats efter det att den fil 
som skall kompileras har skapats/ändrats, kompileras även dessa enheter. Om in¬ 
terfacedelen i en enhet har ändrats kompileras även de filer som använder denna 
enhet. 

Make __ kompilerar om alla filer som ändrats. 

Build _ kompilerar alla filer som ingår i programmet. 
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10.5 TPUM0VER.EXE. 

Standard enheterna finns i filen TURBO.TPL. I Turbo Pascal finns det möjlighet 
att flytta egna enheter till filen TURBO.TPL. Detta sker med hjälp av programmet 
TPUMOVER.EXE. 


TPUMOVER.EXE 


-t 


flyttar enhet till _ 

tar bort enheter från 



filen TURBO.TPL 


Det finns två typer av enheter, de med extension TPU och de med TPL. Filer med 
extension TPU innehåller en enhet medan filer med extension TPL innehåller en 
eller flera enheter. 


Filer 



.TPU innehåller en enhet. 

.TPL innehåller en/flera enheter. 


Vid kompilering av en enhet till disk skapas alltid en TPU-fil. Vid kompilering 
(Compile) av ett program/enhet som använder andra enheter letar kompilatorn 
först efter enheten i TURBO.TPL. Om den inte finns där letar kompilatorn efter 
en enhet med extension TPU. Om kompileringen sker med Make/Build letar kompila¬ 
torn även efter en fil med extension .PAS. Om den ej hittar någon enhet med det 
sökta namnet uppstår kompileringsfel. 

Om du har enheter som du använder ofta kan dessa läggas i TURBO.TPL. Denna lad¬ 
das alltid in i minnet av kompilatorn vilket medför att delar av minnet kommer 
att upptas av filen. Vinsten är däremot att det går snabbare att använda enheten 
och att kompilatorn alltid vet var den finns. Det kan nämnas här att om du inte 
behöver enheterna, Graph3 och Turbo3 som gör ver 4.0 kompatibel med 3.0, kan 
dessa tas bort från TURBO.TPL. Dessa två enheter upptar cirka 10 kb av minnet. 
TPUMOVER används direkt från dospromten t ex C:> och är i stort sätt självinst- 
ruerande. 

Exempel 10.9. 

Vi antar att TPUMOVER ligger på hårdisken i katalogen TURB04. Vi kan då starta 
TPUMOVER på lite olika sätt. TPUMOVER består av två fönster mellan vilka kopie¬ 
ringar kan ske. Vad som skall läsas in i resp fönster kan anges efter det att 
TPUMOVER startats upp. I detta fall startas programmet med kommandot 

C:\TURB04>TPUMOVER 

0m vi vill att resp fönster skall innehålla någon fil redan från starten anges 
detta efter kommandot TPUMOVER. Först vad som skall finnas i vänster fönster, 
därefter i höger fönster. Antag att vi i det vänstra fönstret från början vill 
lägga in TURBO.TPL. Detta sker då på följande sätt: 

C:\TURB04>TPUMO VER turbo tryck därefter på ENTER-tangenten 


Extension TPU antages som standard. Om en fil med extension TPL skall aktiveras 
i ett fönster skall även TPL anges i filnamnet. Kommandot ovan ger följande bild 


158 


Turbo Pascal Unit Librarian 
Version 4.0 



Drive C: 2656 K free 

Fl-Help F2-Save F3-New F4-Info F6-Switch +-Mark INS-Copy DEL-Delete ESC-Quit 


TANGENT: FUNKTION: 


Fl-Help 

F2-Save 

F3-New 

F4-Info 

F6-Switch 

+-Mark 


INS-Copy 

DEL-Delete 

ESC-Quit 


Ger hjälpmenyer 

Sparar den ändring som är gjord i det fönster som är aktive¬ 
rat . 

Ger möjlighet att läsa in en ny fil i det fönster som är akti¬ 
verat . 

Ger information om den enhet som markören står på. 

Byter aktivt fönster. 

Märker enhet. Vilket måste göras om enheten skall flyttas mel¬ 
lan fönsterna (INS) eller tas bort (DEL). Om enheten redan är 
märkt tas märkningen bort genom att trycka på +-tangenten. 
Flyttar märkt (+) enhet mellan fönsterna. 

Raderar märkt (+) enhet. 

Avslutar TPUMOVER. 


Flytta utan att använda fönster. 

Man kan manipulera enheterna snabbare genom att direkt ange parametrar. 

C.\TURB04>TPUMOVER TURBO /parameter enhetsnamn 
Parametrarna är 


/+ Adderar enheten till TURBO.TPL 

/- Tar bort enheten från TURBO.TPL 

/* Kopierar enheten från TURBO.TPL och sparar den med namnet 

enhetsnamn.TPU. 

/? Visar ett litet hjälpfönster. 
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11 Poster 

11.1 Definition av en posttyp. 

Vad är poster? Låt oss titta på ett exempel: 



Detta är ett exempel på två poster. Vi skulle kunna säga att en post består av 
uppgifter som hör ihop. I exemplet ovan har de två posterna tre gemensamma delar 
förnamn, efternam och telefonnummer. Om vi skulle vilja bygga upp ett register 
angående flera personer och lagra just förnamn, efternam och telefonnummer är 
det lämpligt att deklarera en egen datatyp, posttyp för just dessa poster. Om vi 
vill översätta figurerna ovan i en syntax som är riktig för Pascal, så kommer 
det att se ut på följande sätt. 

personpost = record { Deklaration av posttypen personpost } 

fornamn : string[25]; 
efternamn : string[25]; 
tfn : string[10]; 

end; 


Posttypen personpost består av tre fält: 

fornamn kan lagra 25 tecken, 

efternamn kan lagra 25 tecken, 

tfn kan lagra 10 tecken. 

Varje fält har deklarerats separat, i exemplet ovan har alla tre deklarerats som 

typen string. Record är ett reserverat ord. Personpost hittade vi själva på. 
Personpost är ett lämpligt namn, eftersom posten består av information angående 
en person. Posttypen personpost avslutas med end följt av ett semikolon. 

11.2 Deklaration av posttyp. 

Var i Pascalprogrammet skall en posttyp deklareras? Givetvis bland typdeklara¬ 
tionerna . 

program Klass; 
type 

personpost = record 

fornamn : string[25]; 
efternamn : string[25]; 
tfn : string[ 10]; 

end; 
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11.3 Allmän deklaration av en posttyp. 

En posttyp är en strukturerad (sammansatt) datatyp. 

type 

<Posttypens namn> = record 
elementi : datatyp; 
element2 : datatyp; 

elementx : datatyp; 

end; 


Varje fält i en post deklareras separat och definitionen av posten avslutas 
med end följt av ett semikolon. 

Fälten inom en post kan vara av enkla eller strukturerade datatyper. 


11.4 Indexerad posttyp och indexerad postvariabel. 

För att kunna bygga upp t ex ett personregister, (klassregister) måste personer¬ 
na som skall ingå i registret läsas in med hjälp av en variabel. Antag, att in¬ 
formationen som skall lagras angående personerna överensstämmer med deklaratio¬ 
nen av personpost. Antag, att vi döper variabeln till elev och variabeldeklare- 
rar den på följande sätt: 

var 

elev : personpost; 


Detta leder till att information om endast en elev kan lagras. Låt oss därför 
införa en indexerad posttyp och då en motsvarande indexerad postvariabel som kan 
omfatta information angående flera elever. 

Indexerad posttyp: 

Låt oss kalla den indexerade posttypen för klassregister. Vidare skall 
klassregister deklareras så att det finns möjlighet att lagra 30 personpos¬ 
ter. Klassregister typdeklareras då som en array. 

klassregister = array[l .. 30] of personpost; 

Indexerad postvariabel: 

Variabeln elev variabeldeklareras därefter att vara av typen klassregister, 
elev : klassregister; 


Obs! Variabeln elev utgörs alltså av 30 personposter. Där en enskild elev refe¬ 
reras med ett index. 
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I sin helhet kan deklarationsdelen för t ex ett klassregister ha följande ut¬ 
formning : 

program Klass; 
type 

personpost = record 

fornamn : string[25]; 
efternamn : string[25]; 
tfn : stringt 10]; 

end; 

klassregister = arraytl .. 30] of personpost; { Indexerad posttyp } 

var 

elev : klassregister; { Indexerad postvariabel } 


Klassregister är en typ, en indexerad posttyp som består av 30 personposter. 
Variabeln elev är en indexerad postvariabel som kan lagra information angående 
30 elever. 

Antag, att den indexerade posttypen har följande utseende: 


|Index | fornamn |efternamn |tfn 


1 

Tor 

Andersson 

138597 

2 

Christian 

Andersson 

137634 

3 

Anna 

Bengtsson 

124356 

30 

Karin 

Åström 

165789 


Information om en elev är alltså relaterat till ett index. Lägg märke till att 
vi valde just index ett tom trettio. Givetvis går det att välja andra index- 
gränser. Om man vill nå informationen angående någon elev i registret sker detta 
relaterat till index. 

Om man vill veta vad eleven med index 2 har för efternamn får man reda på detta 
med hjälp av den indexerade postvariabeln elev: 

elev[2].efternamn 

Telefonnumret till eleven nås med 

elev[2].tfn 

11.5 Tilldela en indexerad postvariabel data. 

Tilldelning kan ske genom: 

elev[2].fornamn := 'Christian'; 
elev[2].tfn := '137634'; 

Med satserna ovan tilldelas eleven med index 2 förnamnet Christian och telefon¬ 
nummer 137634. Om vi vill att tilldelningen skall ske från tangentbordet används 
readln satser. 

Write('Ange förnamn till eleven med index nummer två: '); 

Readln(elev[2].fornamn ); 

Write('Ange telefonnummer: '); 

Readln(elev[2].tfn ); 
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Om eleven med index nr 2 heter Christian och även elev nr 8 skall tilldelas 
samma namn kan det se ut på följande sätt: 

elev[8].fornamn := elev[2].fornamn; 

Även jämförelser går givetvis bra: 

if elev[8].fornamn = elev[2].fornamn then 

Writeln('Eleverna har samma namn, nämligen elev[8].fornamn; 

Om eleverna med index två resp åtta har samma namn (Christian) sker utskriften: 
Eleverna har samma namn, nämligen Christian. 

11.6 With-satsen 

I Pascal finns det en möjlighet att förenkla skrivsättet för att nå fält i en 
post. I stället för att skriva 

elev[28].fornamn := 'PER'; 
elev[28].efternamn := 'SVENSSON'; 
elev[28].tfn := '123456'; 

kan man skriva 

with elev[28] do begin 
fornamn := 'PER'; 
efternamn := 'SVENSSON'; 
tfn := '123456'; 

end; 


En tilldelning kan också ske med hjälp av en Readln satser 

with elev[28] do begin 
Readln(fornamn); 

Readln(efternamn); 

Readln(tfn); 

end; 


11.6.1 Inläsning med hjälp av räknare. 

Om 30 elever skall läsas in i en indexerad postvariabel sker detta givetvis med 
hjälp av en räknare som hela tiden räknas upp med ett steg tills alla 30 elever 
är inlästa. Räknare i exemplet nedan har fått beteckningen "i". Eftersom det 
inte är säkert att det skall lagras information angående exakt 30 elever börjar 
programmet med frågan, "Antal elever?". Vidare ges två förslag till programlös¬ 
ning, ett med with satsen och en utan. 
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Förslagi: 


Write('Antal elever? '); 
Readln(antal); 
i: =1; 

repeat 

Write('ANGE FÖRNAMN: '); 
Readln(elev[i].fornamn); 
Write('ANGE EFTERNAMN: '); 
Readln(elev[i].efternamn); 
Write( 'ANGE TFNR : '); 
Readln(elev[i].tfn); 
i:=i+1; 

until i = antal+1; 


Förslaq2: 


Write( 'Antal elever? '); 
Readln(antal); 
i: =1; 

repeat 

with elev[i] do begin 
Write( 'ANGE FÖRNAMN: '); 
Readln(fornamn); 

Write( 'ANGE EFTERNAMN: '); 
Readln(efternamn); 

Write( 'ANGE TFNR: '); 
Readln(tfn); 
end; 
i:=i+1; 

until i = antal+1; 


11.7 Läsa en indexerad postvariabel. 

Om vi vill läsa vad elev med index tre har för efternamn och få det presenterat 
på bildskärmen sker detta med kommandot 

Writeln(elev[3].fornamn); 

Även då en postvariabel skall läsas går det bra att använda with-kommandot 


with elev[i] do begin 

Writeln( 'FÖRNAMN : ',fornamn); 
Writeln('EFTERNAMN : ',efternamn); 
Writeln( 'TFN : ',tfn); 

end; 


Exempel 11.1. 

Programmet Klass läser in en klass på högst 30 elever och sedan går det att få 
en klasslista utskriven. Lägg märke till att om frågan "ÖNSKAS EN KLASSLISTA 
(j/n): " besvaras med n avslutar programmet och vi ser inte effekten av inläs¬ 
ningen. Vidare kan vi inte nå informationen i registret. Programmet borde ha av 
slutats med att informationen lagrades t ex på en diskett i form av en fil, för 
att sedan kunna nås från andra program. Att lagra på fil tas upp i kapitlet fil 
hantering. 


164 




program Klass; 
type 

personpost = record 

fornamn : string[25]; 
efternamn : string[25]; 
tfn : string[lO]; 

end; 

klassregister = array[1 .. 30] of personpost; 

var 

elev : klassregister; 
klassbet : string[6]; 
i,antal : integer; 
svar : char; 

begin 

Write('Ange klassbeteckning: '}; 

Readln(klassbet); 

Write('Hur många elever skall läsas in? '); 

Readln(antal); 
i: =1 1 { index räknare } 

{ INLÄSNING AV KLASS } 

repeat 

Write( 'ANGE FÖRNAMN: '); 

Readln(elev[i].fornamn); 

Write( 'ANGE EFTERNAMN: '); 

Readln(elev[i].efternamn); 

Write( 'ANGE TFNR: '); 

Readln(elev[i].tfn); 

i:=i+1; { indexräknaren räknas upp för att nå nästa post } 
until i = antal + 1; 

{ INLÄSNINGEN KLAR } 

Writeln; 

Write('ÖNSKAS EN KLASSLISTA (j/n): '); 

Readln(svar); 

if (svar = 'j') or (svar='J') then begin 

i: =1; 

Writeln('Klass: ',klassbet); 

Writeln; 

while i < antal + 1 do begin 
with elev[i] do begin 

Writeln( 'FÖRNAMN : ',fornamn); 

Writeln('EFTERNAMN : ',efternamn); 

Writeln( 'TFN : ',tfn); 

end; 
i: =i+1; 

Writeln; 
end; 
end; 
end. 


11.8. Procedurer för behandling av poster. 

11.8.1 Proceduren SkrivInPerson. 

Vi skall titta på hur vi kan arbeta med underprogram och överföra data till 
dessa. I kapitel 7, procedurer tog vi upp hur data kan överföras med hjälp av 
parametrar. Det togs även upp att den datatyp som används i deklarationen i pro¬ 
cedurhuvudet måste vara en skalär datatyp eller tidigare deklarerad i program¬ 
met . 
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En post är en strukturerad datatyp uppbyggd av enskilda element på samma sätt 
som en arraystruktur och måste alltså vara deklarerad innan den används som 
parameter. 

Exempel 11.2 

program Klass; 

type 

personpost = record 

fornamn : string[25]; 
efternamn : string[25]; 
tfn : string[10]; 

end; 

var 


procedure SkrivInPersonC var person:personpost); 

begin 

Write( 'ANGE FÖRNAMN: '); 

Readln(person.fornamn); 

Write( 'ANGE EFTERNAMN: '); 

Readln(person.efternamn); 

Write( 'ANGE TFNR: '); 

ReadlnCperson.tfn); 

end; 

Vi ser i exempel 11.2 att parametern person är deklarerad som den strukturerade 
datatypen personpost. För att detta skall vara möjligt har givetvis personpost 
deklarerats innan den användes i procedurdeklarationen. Lägg även märke till att 
person är en varparameter. 

Antag, att vi nu vill använda proceduren SkrivInPerson för att bygga upp ett 
klassregister enligt ex 11.1. Vi använder då den indexerade variabeln elev som 
argument när vi kallar på funktionen. 

procedure SkrivInPerson( var person:personpost); 


{ HUVUDPROGRAM } 

begin 

Write('Ange klassbeteckning: '); 

Readln(klassbet); 

Write( 'Hur många personer skall läsas in? '); 
Readln(antal); 

i:=1; {index räknare} 

repeat 

SkrivInPerson(elev[i]); { inläsning av elever } 

i:=i+1; 

until i = antal + 1; { inläsningen avslutad } 


Om vi hade gjort följande deklaration: 

proceduren SkrivInPerson(person:personpost) 
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dvs person som en värdeparameter hade detta inneburit att att inläsningen hade 
gått förlorad efter det att vi lämnar proceduren. Repetera gärna kapitlet funk¬ 
tioner om du är osäker på skillnaden mellan värde- och variabeldeklarerade para¬ 
metrar . 

11.8.2 Proceduren SkrivUtPerson. 

Vi presenterar här proceduren SkrivUtPerson, som kan användas för att skriva ut 
den klasslista som skapades med hjälp av proceduren SkrivInPerson. Lägg märke 
till att här är person deklarerad som en värdeparameter. Detta för att procedu¬ 
ren endast skall skriva ut klasslistan och ej göra några globala förändringar. 

procedure SkrivUtPerson(person:personpost); 

begin 

with person do begin 

Writeln('FÖRNAMN : fornamn); 

Writeln( 'EF1ERNAMN : efternamn); 

Writeln( 'TFN : ',tfn); 

end; 

end; 


11.9 Sökning. 

Vi skall nu titta på hur vi kan nå information i ett indexerat register. Antag, 
att vi vill ha information angående en elev i klassregistret skapat av program¬ 
met Klass. Nedan presenteras en procedur Sok som söker upp och skriver ut infor¬ 
mationen angående den sökta eleven. 

procedure Sok; 

var namn : string[25]; { Lokalt deklarerade } 

index, antal : integer; { variabler } 

begin 

Write('Om vilken elev önskas information, ange efternamn: '); 

Readln(namn); 

Write('Antal elever i klassen? '); 

Readln(antal); 
index := 1; 

while (namn <> elev[index].efternamn) and (index < antal + 1) do 
index := index + 1; 

{ Om eleven finns vet vi dennes index efter while-loopen } 
if namn = elev[index].efternamn then begin 
with elev[index] do begin 

Writeln('Förnamn : ', fornamn); 

Writeln('Efternamn: ', efternamn); 

Writeln('Telefon : ', tfn); 
end; 
end 

else Writeln('Finns ingen elev med detta efternamn!'); 

end; 

När proceduren Sok anropas kommer först frågan 

Om vilken elev önskas information, ange efternamn: 

Svaret läses in i variabeln, namn. För att veta hur många elever som finns i 
registret, läses detta in i variabeln antal. Vidare vet vi från deklarationsde- 
len från programmet Klass att den första posten har index nummer ett. 

index := 1; 
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Själva sökandet sker med hjälp av while-satsen: 

while (namn <> elev[index].efternamn) and (index < antal + 1) do 
index := index + 1; 

Själva sökandet går ut på att hitta det rätta index. För att index skall räknas 
upp med en enhet i while-satsen fordras att båda villkoren är sanna dvs (namn 
<> elev[index].efternamn) och (index < antal + 1). Det som bryter uppräkningen 
är alltså att namn blir lika med elev[index].efternamn eller att programmet har 
sökt igenom samtliga poster, (index < antal +1) . 

Om det skall ske en utskrift av en elev ur registret eller inte styrs slutligen 
av villkoret: 

if namn = elev[index].efternamn then begin 

Om det var villkoret (namn <> elev[index].efternamn) som bröt while-loopen innan 
sista posten var läst kommer det att ske en utskrift av en elev. Om det var läs¬ 
ning av sista posten som bidrog till att bryta loopen vet vi inte om även vill¬ 
koret (namn <> elev[index].efternamn) blev falskt. Detta testas slutligen i vil- 
koret i if satsen. 

Obs! Proceduren Sok söker tills den hittar den första eleven med det sökta ef¬ 
ternamnet. För att ge en exaktare sökning bör både förnamn, efternamn och 
telefonnummer ingå som nyckel till rätt fält. 


11.10 Konvertering. 

Det kan uppstå problem när man söker i ett register. Antag att vi söker efter en 
artikel i ett lager t.ex en stol. Då kommer kanske stol att finnas i lager men 
ej Stol eller STOL. Datorn tolkar ej STORA och små bokstäver på samma sätt. 

Detta går då givetvis att åtgärda genom att be alla människor att använda stora 
bokstäver. Eftersom det lätt sker slarv är det säkrare att låta datorn konverte¬ 
ra , (omvandla) t.ex små bokstäver till stora då dessa läses in från tangentbor¬ 
det. Nedan presenteras funktionen LowToUp som konverterar från små till stora 
bokstäver. 


function LowToUp(s:str255):str255; 

var 

p:integer; 

begin 

for p:=1 to Length(s) do 
case s[p] of 


end; 

LowT oUp:=s; 

end; 


'z' 

s[p]:=Chr( 

'å' 

s[p]:='Å'; 

'ä' 

s[p]: = 'Ä'; 

'ö' 

s[p]: = 'Ö '; 

'u' 

s[p]: = 'U '; 

'é ' 

s[p]: = 'E '; 


type 

str255=string[255]; 

var 

s : str255; 

Funktionen LowToUp läser in en 
sträng s och konverterar därefter 
alla små bokstäver i strängen 
till stora. Därefter returneras 
strängen. 
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Exempel 11.3 


Programmet TestaStora omvandlar små bokstäver till stora med hjälp av funktionen 
LowTotlp. 

program TestaStora; 

type 

str255=string[255]; 


s : str255; 

function LowTollp(s:str253) :str233; 

var 

p:integer; 

begin 

for p := 1 to Length(s) do 
case s[p] of 

'a'..'z' : s[p]:=Chr(0rd(s[p])-32); 

'å' : s[p]:='Ä'; 

'ä' : s[p]: = 'Ä '; 

'ö' : s[p]: = 'Ö '; 

'u' : s[p]: = 'U '; 

'é' : s[p]: = 'E '; 

end; 

LowTotlp:=s; 

end; 

begin 

Write('Ange ett namn: '); 

Readln(s); 

Writeln('Namnet med stora bokstäver: ' ,LowToUp(s)); 

end. 


11.11 Exempel på postdeklarationer. 

Exempel 11.4 

Antag, att ett lagerregister skall byggas upp för 100 artiklar. I registret 
skall finnas information angående, artikelnummer, artikelnamn, antal i lager 
och styckepris. Låt oss deklarera en post med namnet artikelpost. Vidare behö¬ 
ver vi en indexerad posttyp som skall bestå av 100 artikelposter, denna döper 
vi till lagerregister. Slutligen behövs en indexerad postvariabel som skall 
deklareras som lagerregister, denna döper vi till artikel. 

type 

artikelpost = record 
artnr : string[25]; 

artnamn : string[40]; 

antal : integer; 

pris : real; 

end; 

lagerregister : array[ 1..100] of artikelpost; {indexerad posttyp} 


artikel : lagerregister; {indexerad postvariabel} 
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Exempel 11.5 

Vi deklarerar en post med följande innehåll. 

Namn 60 tecken. 

född år 1940 - 1988. 

född månad 1 - 12. 

född dag son, man, tis, ons, tors, fred eller lor. 

type 

dagtyp = (son,man,tis,ons,tors,fred,lor); 

personpost = record 
namn : string[60]; 
ar : 1940..1988; 
manad : 1..12; 
dag : dagtyp; 
end; 


Exempel 11.6 

Vid räkning med komplexa tal kan följande post användas. 

type 

komplex = record 
redel : integer; 
imdel : integer; 

end; 
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12 Pekare 


12.1 Statiska variabler. 

Det finns en nackdel med typdeklarationen, enligt kapitel 11 

type 


klassregister = array[l..30] of personpost; 

Vi belastar datorn med 30 poster. Det innebär att även om vi inte är fler än 20 
i klassen så finns det outnyttjat minne för 10 poster. Vad händer om klassen 
består av exakt 30 elever och klassen får två nya elever? Givetvis måste vi då 
gå in i programmet och ändra. 

klassregister = array[1..32] of personpost; 

De variabler som vi hittills använt kallas statiska variabler. Dessa reserveras 
en exakt plats i minnet redan vid kompileringen. 

12.2 Dynamiska variabler. 

Det finns variabler där det inte skapas någon exakt plats redan vid kompilering¬ 
en utan den skapas efter behov under exekvering av programmet. Dessa variabler 
kallas dynamiska variabler. 

För att senare i programmet kunna nå dessa platser måste det finnas en referens 
till den dynamiska variabeln, en sk pekare (pekarvariabel). Pekarens "värde" är 
vanligen adressen till ett minnesutrymme. En pekarvariabel är i sig själv en 
statisk variabel och deklareras i en varsats. 

Dynamiska variabler är vanligen av posttyp och kan innehålla pekarvariabler. 

För att det skall vara enklare att förklara hur vi arbetar med pekarvariabler 
och dynamiska variabler kan vi illustrera dessa enligt figuren nedan. 


Obs! Pekarvariabeln "pekar på" den 
dynamiska variabeln. 

pekarvariabel dynamisk variabel 

I den dynamiska variabeln är det möjligt att lagra t ex ett tal eller informa¬ 
tion om en person, en artikel osv. För att nå informationen eller lagra informa¬ 
tion i den dynamiska variabeln måste vi gå via pekarvariabeln. 

12.3 Pekare. 

Exempel 12.1 

I deklarationsdelen anges om en variabel skall anta pekarvärden, dvs vara en 
pekarvariabel. Om variabeln tall skall vara en pekarvariabel som kan peka på 
heltal, ser denna deklaration ut på följande sätt: 

var tall : 'integer; 

Det som skiljer en statisk variabel från en dynamisk i deklarationsdelen är ett 
", sk circumflex eller tak framför den dynamiska variabelns datatyp. Notationen 
"integer kallas för pekartyp och utläses "pekare på heltal". 
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New. 


Proceduren New skapar en dynamisk variabel som den angivna pekarvariabeln pekar 
på. Kommandot nedan ger följande bild: 

New(tall); 


□bs! Pekarvariabeln tall "pekar på" den 
dynamiska variabeln. 

tall dynamisk variabel 

Med hjälp av proceduren New skapas det utrymme i minnet som behövs för att lagra 
t ex ett heltal. Minnesadressen till detta utrymme finns lagrat i pekarvaria¬ 
beln. Om ett heltal t ex tio skall lagras i den dynamiska variabeln kan detta 
ske med kommandot 

tair := 10; 

Själva objektet som pekarvariabeln pekar på kommer man åt med hjälp av tall". En 
inläsning från tangentbordet sker som vanligt med en Readlnsats. 

Write('Ange ett heltal: '); 

Readln(tair)i 

En utskrift av talet som finns i den dynamiska variabeln som tall pekat på sker 
med hjälp av en Write/Writelnsats. 

Writeln(tal1*); 

Programmen Dynamiski och Dynamisk2 är två program som båda skapar en dynamisk 
variabel och därefter lägger in ett tal i den dynamiska variabeln. Talet kan 
sedan nås med kommandot tall". Obs! tall" ger det tal som finns på den minnesad- 
ress som pekaren tall har. 


program Dynamiski; 

var tall : "integer; { Pekarvariabel } 

begin 

New(tall); { Skapar minnesutrymme för en heltalsvariabel } 

{ och lagrar adressen i pekarvariabeln tall. } 

tall" := 10; { Talet 10 läggs i den minnescell som pekaren tall pekar på. } 
Writeln('Pekarvariabeln tall pekar på heltalet ',tal1"); 

end. 


Exempel 12.2 
program Dynamisk2; 

var tall : "integer; { Pekarvariabel } 
begin 

New(tall); 

Write( 'Ange ett heltal: '); 

Readln(tal1"); { Inläsning från tangentbordet. } 

Writeln('Pekarvariabeln tall pekar på heltalet ',tal1"); 
end. 
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Exempel 12.3 


program Dynam.isk3; 

var tal1,tal2 : "integer; 
begin 

New(tal1); 

New(tal2); 

tair 10; { Talet 10 
tal2" := 20; { Talet 20 
Writeln( 'Pekarvariabeln 
Writeln( 'Pekarvariabeln 

end. 


{ Pekarvariabler } 


läggs i den minnescell 
läggs i den minnescell 
tall pekar på heltalet 
ta!2 pekar på heltalet 


som pekaren tall pekar på. 
som pekaren tal2 pekar på. 
',tall" ); 

',tal2"); 


} 

} 


□--H □--H 

tall dynamisk variabel tal2 dynamisk variabel 

Med hjälp av proceduren New skapades två dynamiska variabler, vilka kan nås med 
pekarna tall respektive tal2. Programmet ger följande utskrift: 

Pekarvariabeln tall pekar på heltalet 10 
Pekarvariabeln ta!2 pekar på heltalet 20 


Exempel 12.4 

Minnesadressen i pekaren tall kan läggas i pekarvariabeln tal2 
tal2 := tall; 

Detta innebär att båda pekarna pekar på samma dynamiska 
variabel. Objektet i den dynamiska variabeln kan nu nås på 
två sätt 

tall" och tal2" 


program Dynamisk4; 

var tal1,tal2 : "integer; { Pekarvariabler } 

begin 

New(tall); { Skapar minnesutrymme för en heltalsvariabel } 

{ och lagrar adressen i pekarvariabeln tall. } 

tall" := 10; { Talet 10 läggs i den minnescell som pekaren tall pekar på. } 
tal2 := tall;{ Pekaren tal2 pekar nu på samma heltal som tall } 

Writeln('Pekarvariabeln tall pekar på heltalet ',tal1"); 

Writeln('Pekarvariabeln tal2 pekar också på heltalet ',tal2"); 
end. 
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För att två eller flera pekare skall vara kompatibla i Turbo Pascal ver 4.0 
måste dessa deklareras som nedan. 


var tal1,tal2 
eller 


"integer 


Om två pekarvariabler är kompatibla kan t ex 
pekaren tal2 erhålla den minnesadress som 
finns i pekaren tall med satsen 


type heltal = "integer; 

var tall : heltal; 
ta!2 : heltal; 


tal2 


tall; 


I Turbo Pascal ver 4.0 är pekarvariablerna inte kompatibla om de deklareras: 

var tall : "integer; Detta innebär i ver 4.0 att följande sats ger 

tal2 : 'integer; kompileringsfel 

tal2 := tall; 

I Turbo Pascal ver 3.0 är däremot pekarna kompatibla även med denna deklaration. 

12.4 Addr och @. 

I ver 3.0 returnerar funktionen Addr minnesadressen till variabler. Funktionen 
Addr finns även i ver 4.0, men operatorn @ (snabel-a/alfaslang/kanelbulle) an¬ 
vänds istället. 

Exempel 12.3 

program Dynamisk5; 

var tall : "integer; { Pekarvariabel } 
tal2 :@integer; { Statisk variabel } 

begin 

tal2 := 89; 

tall := tal2; { Pekaren tall pekai på samma adress som tal2. } 

Writeln('Pekarvariabeln tall pekar på heltalet 'jtall*); 

end. 

Programmet Dynamisk5 ger följande utskrift: 

Pekarvariabeln tall pekar på heltalet 89 

12.3 Minnesarea. 

För att lättare förstå fördelarna med dynamiska variabler skall vi kort beskriva 
hur RAM-minnet delas upp i minnesareor. Programmet TURB0.EXE upptar 384 kb av 
minnet. Ett pascalprogram (huvudprogrammet) kan maximalt bli 64 kb stort, likaså 
varje Pascalenhet. 

Vidare behöver ett pascalprogram (inkl enheterna) en minnesarea för att lagra 
lokala variabler vid anrop av procedurerer och funktioner. Denna minnesarea kal¬ 
las för stacken, som normalt upptar 16 kb men som kan expanderas till 64 kb. 

Det behövs också en minnesarea för att lagra bl a variablers värden. Denna data- 
area upptar 64 kb. Vid kompilering reserveras minne i dataarean. Detta kan sedan 
inte expandera under exekvering av ett program. Vid exekvering av ett program 
kan det därför finnas mycket oanvänt minne i dataarean. Det kan också hända att 
den tilldelade minnesarean inte räcker till, med exekveringsfel som följd. 
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Heapen. 


Den minnesarea som används av dynamiska variabler kallas för heapen. I princip 
består heapen av de delar av minnet som inte upptas av det kompilerade program¬ 
met, dataarean, stacken, run-time-biblioteket (System enheten) samt den minnesa¬ 
rea som operativsystemet MS-DOS/PC-DOS använder. Heapen kan i princip vara allt 
från 0 till 640 kb. Fördelen med att använda heapen, är att programmet under ex¬ 
ekveringen kan reservera plats för de dynamiska variablerna och därefter åter¬ 
lämna platsen när den inte behövs mer. För att nå minnescellerna i heapen an¬ 
vänds pekare. Varje pekare belastar dataarean med 4 byte. 

Exempel 12.6 

program MerMax; 
type 

heltalsarray = array[l. .30000] of integer; { 2*30000 byte = 60 kb } 

var 

t1,t2 : heltalsarray; { 2*60kb = 120 kb > 64 kb } 

begin 

end. 

Programmet exempel 12.3 kommer att ge kompileringsfel pga att variablerna behö¬ 
ver en dataarea som är större än den tillåtna på 64 kb. Varje heltal behöver 2 
byte. För att klara detta använder vi oss av dynamiska variabler (heapen). 

Exempel 12.7 

program MerMaxPek; 

type 

heltalsarray = array[1..30000] of integer; { 2*30000 byte = 60 kb } 

var 

t1,t2 : "heltalsarray; { 2*60kb=120kb ok pga pekare } 
begin 
New(ti); 

New(t2); 

end. 

Exempel 12.8 

program MerMaxPek2; 

type 

heltalsarray = array[l..10] of integer; 

var 

ti : "heltalsarray; { pekarvariabel } 
i : integer; { statisk variabel } 

begin 
New(ti); 

for i := 1 to 10 do 
t1"[i] := i; 
for i := 1 to 10 do 

Writeln('ti[ ', i , ' ] = ',t1"[i]); 

end. 


Programmet MerMaxPek2 visar hur 
heltal kan lagras med hjälp av en 
array som utnyttjar heapen. 
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12.6 Återlämna minnesutrymme. 

Med proceduren New skapas ett utrymme i minnet. Om vi förlorar/tar bort pekaren 
till detta utrymme kommer utrymmet att vara oåtkomligt under resten av progra¬ 
mexekveringen. Det är därför viktigt att outnyttjat utrymme i minnet friställs, 
för att senare under programexekveringen kunna komma till nytta. Med hjälp av 
proceduren Dispose kan minnesutrymme lämnas tillbaka. 

Dispose(ti); 

Dispose(tl); "återlämnar" minnesutrymmet för den dynamiska variabeln som ti 
pekar på (ti har inget värde definierat efter disposesatsen). 

Det största problemet när dispose används är att man måste vara helt säker på 
att det inte finns någon eller några andra pekare som anger det utrymme som 
skall friställas. 


12.7 Länkad lista. 


Om vi vill lagra information om t ex flera personer kan vi koppla samman flera 
dynamiska variabler genom att deklarera en pekarvariabel till den dynamiska 
variabeln och därmed skapa en sk länkad lista. En länkad lista består av dynami¬ 
ska variabler med en pekarvariabel som anger listans början 


EhIZO- 

pekar- data pekar¬ 
variabel variabel 


1—1 

l—q 

1 -1 

| nil | 

1_1 

1_j 

_1 


data pekar- data pekar¬ 
variabel variabel 


nil är ett 
reserverat ord. 


Som du ser består den länkade listan av en pekarvariabel som pekar på listans 
början. Därefter kommer ett antal dynamiska variabler som består av data och 
en pekarvariabel som pekar på nästa post. Listan avslutas genom att den sista 
pekarvariabeln inte pekar på någon ny post, den sätts till nil. 

Om man i sitt program råkar ställa om t ex den första pekarvariabeln så går 
programmet miste om resten av den länkade listan. Det är här vi kan få problem i 
en länkad lista. Det är alltså viktigt att inte förlora någon pekare. 

Vi skall nu behandla de delar som behövs för att kunna bygga upp en enkel länkad 
lista, och hur de dynamiska variablerna tilldelas information. 

Deklarationsdelen. 


Vi börjar med deklarationsdelen och bestämmer oss för att kunna lagra förnamn, 
efternamn, telefonnummer och en pekarvariabel i den dynamiska variabeln. 


fornamn efternamn tfn next 


Den dynamiska variabeln skall då 

personpost = record 

fornamn : string[25]; 

efternamn : string[25]; 

tfn : string[10]; 

next : pekare; 

end; 


deklareras som en post. 

{ Dynamisk typ } 

{ En pekare / typdeklareras } 
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Posten består av fyra delar: Tre delar som kan lagra fornamn, efternamn och 
telefonnummer och en del som är en pekarvariabel. Pekarvariabeln har vi kallat 
för next och den är deklarerad som pekare. Pekare är ett ord som vi själva hit¬ 
tat på, givetvis skulle vi kunna använda något annat ord. 

För varje typ av dynamiska variabler måste följande tre saker göras: 

a) definiera en pekartyp för de pekarvariabler som skall peka på de dynamiska 
variablerna, 

b) definiera den dynamiska variabelns typ, 

c) deklarera en eller flera pekarvariabler av den definierade pekartypen. 


Vi ger ett exempel på detta. 

a) pekare = "personpost; { Pekartyp som pekar på personpost } 

b) personpost = record { Dynamisk typ som kan lagra } 

fornamn : string[25]; { förnamn } 

efternamn : string[25]; { efternamn } 

tfn : stringt 10]; { telefonnummer } 

next : pekare; { pekare } 

end; 

c) lista : pekare; { Anger start på listan } 

hpek : pekare; { Hjälppekare för att bygga listan } 

Det som skiljer en pekarvariabel och en vanlig statisk variabel är uppåtpilen 
("). Uppåtpilen kallas även cirkumflex eller "tak". I stället för uppåtpilen kan 
du använda ett STORT tyskt U. 

Vi har valt att kalla pekarvariablerna för lista och hpek. Givetvis kan du döpa 
dessa pekarvaribler till vad du vill. Namnen bör anknyta till vad de skall an¬ 
vändas till. 

En deklarationsdel i ett program skulle kunna få följande utseende: 

program Pekl; 
type 

pekare = "personpost; { pekartyp } 

personpost r record { dynamisk typ } 

fornamn : string[25]; { förnamn } 

efternamn : string[25]; { efternamn } 

tfn : string[10]; { telefonnummer } 

next : pekare; { en pekare } 

end; 


lista : pekare; { pekarvariabel } 

hpek : pekare; { pekarvariabel } 

Vi kan nu med utgångspunkt av deklarationen ovan skapa följande enkellänkade 
lista 


osv 

lista 
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Vi väljer att pekaren lista skall peka på på början av listan, hpek skall vi an¬ 
vända för att bygga upp den länkade listan. 

Skapa en dynamisk variabel och förse den med information. 

Kommandot för att skapa en dynamisk variabel är: 

(Deklarerad enligt program Pekl) 

Kommando Bild 


New(lista); 

|lista fornamn efternamn tfn next 

Med kommandot New skapas alltså en pekare som pekar på en dynamisk variabel. 
Lägg märke till att den dynamiska variabeln fås automatiskt när pekaren lista 
skapas med New. För att kunna lägga in information i den dynamiska variabeln 
måste detta ske via pekaren lista. 

Vill vi tilldela fornamn ett värde kan vi skriva så här: 


lista".fornamn := 'Eva'; 


Obs! Beteckningen lista" - fungerar alltså som namn på den dynamiska variabeln. 
Det är alltså med hjälp av pekarvariabeln vi kan lagra och hämta informa¬ 
tion i en dynamisk variabel. 

Inläsning till den dynamiska variabeln kan se ut på följande sätt: 

Write( 'Ange förnamn: '); 

Readln(lista".fornamn); 

Write( 'Ange efternamn: '); 

Readln(lista".efternamn); 

Write('Ange telefonnummer: '); 

Readln(lista".tfn); 

lista".next:=nil; { Sätter pekaren till nil } 

En pekare som inte pekar på någon dynamisk variabel skall alltid sättas till 
nil. 

Det går även bra att använda with-kommandot: 

with lista" do begin 

Write( 'Ange förnamn: '); 

Readln(fornamn); 

Write('Ange efternamn: '); 

Readln(efternamn); 

Write( 'Ange telefonnummer: '); 

Readln(tfn); 
next:=nil; 
end; 
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12.8 Pekarvariabler - Dynamiska variabler. 

Vi skiljer på två begrepp. 

1. Pekarvariabler* (lista, hpek). 

Pekarvariabler kan bara göra två saker. 

a) Peka på en dynamisk variabel 

b) Anta värdet nil 


2. Dynamiska variabler. 

a) Skapas med kommandot New 

b) Är postdeklarerade om den skall ingå i en länkad lista. 

c) Vi kan lagra information i den dynamiska variabeln med hjälp av pekarvari- 
abeln som pekar på den dynamiska variabeln, punktnoterat med namnet på det 
element i posten som skall tilldelas informationen. 


12.9 Sammanlänka dynamiska variabler. 

Vi skall nu behandla två alternativ att skapa en länkad lista. 

Alternativ 1. 

Antag att vi har följande typdeklaration: 

type 

pekare 

talpost 
tal 
next 

end; 

var lista, hpek : pekare; 

Enligt deklarationen ovan består posten talpost av en del som kan lagra heltal 
och en del som är en pekarvariabel. Pekare är en pekartyp som kan peka på tal¬ 
post. Med hjälp av kommandot New kan vi skapa följande dynamiska variabel. 


= "talpost; 

= record { Dynamisk typ som kan lagra } 
: integer; { heltal } 
: pekare; 


New(lista); 


LhLU 

lista tal next 


Vi vill nu lägga in talet 11 i den dynamiska variabeln och sätta pekaren, next 
till nil kan detta ske med kommandona: 



lista tal next 
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Antag, att vi på samma sätt 
skapat en annan dynamisk variabel 
med hjälp av hpek och i den lagrat 
heltalet 15. 


New(hpek); 
hpek".tal := 15; 
hpek".next := nil; 



hpek tal next 


Vi sammankopplar nu 11 
lista".next := hpek; 



Sammankopplingen sker genom att låta pekaren lista".next antaga samma värde som 
pekaren hpek dvs peka på samma dynamiska variabel. 


Vi tar sedan bort hpek med 
kommandot: 


hpek := nil; 

Genom att på detta sätt koppla samman dynamiska variabler skapar vi en länkad 
lista. Den länkade listan som vi skapat finner vi med hjälp av pekaren lista som 
pekar på början av listan. Återigen, om vi av misstag förlorar pekaren lista så 
har vi också förlorat resten av den länkade listan och den information som finns 
lagrad i denna. När det gäller att skapa en länkad lista kan detta givetvis ske 
på lite olika sätt. Ovan skapade vi den länkade listan, genom att lägga 11 före 
15. Det skulle givetvis vara lika enkelt att lägga 15 före 11. 

Alternativ 2. 

Vi skall också visa på ett annat sätt att skapa en länkad lista som kan lagra 
två tal. Antag att vi skapar en dynamisk variabel: 



New(lista); 


Den 


lista tal next 

Vi kan också använda kommandot New på pekaren next, som vi når med hjälp 
pekaren lista. 


av 


New(lista".next) 


lista tal next tal next 


Därefter kan vi lägga in information i listan t ex med kommandona: 


lista".tal := 11; 
lista".next".tal := 15; 
lista".next".next := nil; 

Obs! Sista pekaren skall alltid 
vara nil. 


□—m—o® 

lista tal next tal next 
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Exempel 12.9 

Vi skall i detta exempel visa ett antal kommandon och tolka dess innebörd. 

New(lista); 
lista".tal := 5; 
lista".next : nil; 



lista tal next 


Den dynamiska variabeln skapas med New(lista) och tilldelas därefter informa¬ 
tion. För att nå den dynamiska variabeln används pekaren lista. 


New(hpek); 

hpek".tal := 5 + lista".tal; 
hpek~.next := lista".next; 



hpek tal next 


Den dynamiska variabeln skapas med New(hpek). Eftersom lista".tal har tilldelats 
värdet fem i föregående exempel ger 5 + lista".tal värdet tio som resultat. 
Vidare har lista".next värdet nil och detta tilldelas alltså hpek".next. 


New(hpek); 
hpek" := lista"; 



hpek tal next 


Kommandot hpek" := lista" kopierar det innehåll som finns i den dynamiska varia¬ 
bel som lista pekar på till den dynamiska variabel som hpek pekar på. 

Obs! hpek" och lista" har samma värden men pekar på olika dynamiska variabler. 


hpek := lista; 

I detta fall är hpek = lista pga att hpek 
och lista pekar på samma dynamiska variabel. 



Den dynamiska variabel som innehåller talet 
åtta i bilden bredvid kan nås både med 
hjälp av pekaren lista och pekaren hpek. Om 
vi vill byta ut talet åtta mot talet 11 kan 
detta ske på två sätt; 

lista".next'.tal := 11; 
eller 


OEEKE 

lista tal next / tal 

CF 


hpek 


hpek".tal := 11; 
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12.10 Ett fullständigt program. 
Deklaration. 


Vi skall i detta exempel skriva ett fullständigt program som skapar en enkel 
länkad lista och som därefter skriver ut informationen som finns lagrad i den 
länkade listan. Vi bestämmer att programmet skall kunna lagra information angå¬ 
ende personer. Följande information skall lagras, förnamn, efternamn och tele¬ 
fonnummer. Vi börjar med deklarationsdelen: 

program Pekl; 
type 

pekare = "personpost; { pekartyp } 

personpost = record { dynamisk typ } 

fornamn : string[25]; 

efternamn : string[25]; 

tfn : string[10]; 

next : pekare; { En pekare } 

end; 


lista : pekare; 

hpek : pekare; { pekarvariabler } 

Skapa huvud. 

En länkad lista kan byggas upp som vi redan nämnt på olika sätt. Vi kommer att 
börja med ett sk huvud. 



(Skapas med New(lista)) 


Ett huvud är i vårt fall en dynamisk variabel, som vi inte kommer att förse med 
information. Vi har valt att använda ett huvud för att lättare kunna göra bort- 
tag ur den länkade listan dvs vi slipper att ta speciell hänsyn till det fall då 
vi tar bort det första elementet ur listan. För att skapa ett huvud och sätta 
pekaren i den dynamiska variabeln till nil, använder vi proceduren CreateHead. 

procedure CreateHead; 

begin 

New(lista); 
lista".next := nil 

end; 
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Skapa länkad lista. 


Efter det att vi skapat huvudet med proceduren CreateHead behöver vi en procedur 
som skapar dynamiska variabler, förser dem med information och därefter infogar 
dessa i listan efter huvudet. Proceduren InsertPost kommer att koppla på de 
dynamiska variablerna efter huvudet. Det först instoppade elementet i listan 
kommer att hamna sist i listan, det andra näst sist osv. Först skapas en dyna¬ 
misk variabel som pekaren hpek pekar på. Därefter förses den dynamiska variabeln 
med information och slutligen sker inlänkningen. 


procedure InsertPost; 
begin 
repeat 

New(hpek); 

Write('Ange förnamn: '); 

Readln(hpek".fornamn); 

Write( 'Ange efternamn: '); 

Readln(hpek".efternamn); 

Write( 'Ange tfn: '); 

Readln(hpek".tfn); 
hpek".next:=lista".next; 
lista".next := hpek; 

Write('Skall flera personer läggas i listan (j/n): '); 
Readln(svar); 
until svar= 'n '; 

end; 


Antag, att huvudet är skapat med funktionen 
CreateHead och att vi därefter anropar funk¬ 
tionen InsertPost. Det första som utförs i 
funktionen är 

New(hpek); 


O 

lista 

Q- 


□ 

□ 

□ 

nil 

huvud 

□ 

□ 

0 

□ 


hpek 


Ett förnamn läses in i den dynamiska variabeln 

Write('Ange förnamn: '); 

Readln(hpek".fornamn); 


Sedan sker inläsning av efternamn och telefonnummer. 


Den första satsen som utför sammankopplingen 
mellan de dynamiska variablerna är 


hpek" .next:=lista".next; 


Eftersom lista".next har värdet nil kommer 
även hpek".next att erhålla detta värde. 


□H l 1. l2ii 

lista huvud lista".next 

1~H I I I l nl1 


hpek 


hpek".next 
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Nästa sats 


lista''.next := hpek; 

får pekaren lista".next att peka på samma 
dynamiska variabel som pekaren hpek gör. Nu 
är den första dynamiska variabeln kopplad. 
Lägg märke till att den sista pekaren har 
värdet nil. 



hpek 


hpek".next 


Proceduren InsertPost avslutas 
om vi på frågan " Skall flera 
personer läggas i listan (j/n): 
" svarar 'n'. I annat fall ut¬ 
förs satserna efter repeat en 
gång till. 

New(hpek); 

kopplar bort hpek och skapar en 
ny dynamisk variabel som hpek 
pekar på. 

Vi förser återigen den dynamiska 
variabeln, som hpek pekar på med 
information. Därefter sker in- 
länkningen. 

hpek".next:=lista".next; 

Efter som lista".next pekar på 
den första dynamiska variabeln i 
listan kommer hpek".next också 
att peka på denna. 

Satsen 

lista".next := hpek; 

kopplar slutligen in den dynami¬ 
ska variabeln i listan och där¬ 
med innehåller listan två dyna¬ 
miska variabler + huvudet, som 
inte innehåller någon informa¬ 
tion. Återigen kommer en fråga 
om flera dynamiska variabler 
skall kopplas in i listan. 


□—4.1. 1 .1_i * 

lista huvud lista".next 



□— rrm 

hpek hpek".next 



lista huvud lista".next 



lista huvud lista".next 


Nå information i en länkad lista. 

Hur skall vi nå informationen i den länkade listan, som vi skapat med procedu¬ 
rerna CreateHead och InsertPost? Vi vet att listan slutar med nil. Vi vet även 
att pekaren lista pekar på början av listan. 


lista 
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För att skriva ut listans innehåll tar vi till hjälp en pekare (hpek), som kan 
vandra längs listan och skriva ut dess innehåll, tills vi stöter på nil, dvs 
slutet på listan. 

Vi låter hpek peka på början av listan, 
hpek := lista".next; 

Sedan låter vi hpek vandra fram i listan till den stöter på nil. Detta sker med 
hjälp av en while-sats. 

while hpek".next <> nil do begin 


hpek := hpek".next; 

end; 

Proceduren PrintList i sin helhet: 


procedure PrintList; 

begin 

Writeln( 'Följande personer 
hpek := lista".next; 
while hpek <> nil do begin 
with hpek" do begin 
Write(fornamn,' '); 
Write(efternamn, ' '); 
Writeln(tfn); 
end; 

hpek := hpek".next; 

end; 

end; 


inns i listan: '); 

{ hpek pekar på första elementet } 
{ test om sista elementet är nått } 


{ utskrift av } 
{ förnamn } 
{ efternamn } 
{ telefonnummer } 

{ hpek förflyttar sig i listan } 


Som du ser ovan så rör vi inga pekare i den länkade listan. Eftersom vi måste 
utgå från pekaren lista och läsa element för element kommer det sist inskrivna 
elementet att skrivas ut först och det först skrivna elementet att skrivas ut 
sist, dvs sist in först ut. Om vi av någon anledning vill ha utskriften sist in 
sist ut, är det enkelt att vända listan med hjälp av proceduren Vand på sidan 
189. 
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Exempel 12.10 

Nu presenterar vi hela programmet Pekl: 

program Pekl; 
type 

pekare = 'personpost; { Pekartyp som pekar på personpost } 

personpost = record { Dynamisk typ som kan lagra information } 

fornamn : string[20]; { förnamn } 

efternamn : string[20]; { efternamn } 

tfn : string[10]; { telefonnummer } 

next : pekare; { pekare till nästa personpost alt nil } 

end; 

var 

lista : pekare; { Anger start på listan } 
hpek : pekare; { Hjälppekare } 

svar : char; 

procedure CreateHead; 
begin 

New(lista); 
lista'.next := nil; 

end; 

procedure InsertPost; 
begin 
repeat 

New(hpek); 

Write('Ange förnamn: '); 

Readln(hpek'.fornamn); 

Write('Ange efternamn: '); 

Readln(hpek'.efternamn); 

Write( 'Ange tfn: '); 

Readln(hpek'.tfn); 
hpek'.next:=lista'.next; 
lista'.next := hpek; 

Write('Skall flera personer läggas i listan (j/n): '); 
Readln(svar); 
until svar= 'n '; 

end; 

procedure PrintList; 

begin 

Writeln('Följande personer finns i listan:'); 
hpek := lista'.next; 
while hpek <> nil do begin 
with hpek' do begin 
Write(fornamn, ' '); 

Write(efternamn, ' '); 

Writeln(tfn); 
end; 

hpek := hpek'.next; 

end; 

end; 

begin { Huvudprogram } 

CreateHead; { Skapar huvud } 

InsertPost; { Skapar en länkad lista } 

PrintList; { Skriver ut vad som finns i den länkade listan } 
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Lagra information angående artiklar. 


Om vi vill lägga in information om en artikel i stället för en person är det 
bara att ändra typdeklarationen i programmet Pekl . 

program Pek2; 
type 

pekare = "artikelpost; {Pekartyp som pekar på personpost} 

artikelpost = record { Dynamisk typ som kan lagra information } 
artnummer : string[20j; { artikelnummer } 

antal : string[5]; { antal i lager } 

pris : real; { pris } 

next : pekare; { pekare till nästa artikelpost alt nil } 

end; 

var 

lista : pekare; { Anger start på listan } 
hpek : pekare; { Hjälppekare } 

svar : char; 

Vi måste givetvis också ändra ledtexterna. Om vi däremot vill ändra utformningen 
av de dynamiska variablerna, t ex vill även ha med personnummer i Pekl, måste vi 
också ändra i procedurerna InsertPost och PrintList. I procedurerna arbetar vi 
inte med några lokala parametrar, inte heller med varparametrar eller värdepara¬ 
metrar . 

12.11 Generella procedurer. 

Variablerna lista och hpek är i programmet Pekl globala. Detta kan vara till 
stor nackdel om man vill arbeta med flera listor samtidigt. Ett sätt att lösa 
detta problem är att förse våra procedurer med parameterlistor. Ledtexten är 
borttagen för att därmed göra procedurerna mer generella. 

procedure CreateHead( var L:pekare); { L är varparameter } 

begin 

New(L); { Obs! med hjälp av pekaren L ändrar vi den } 

L".next := nil; { globala pekaren lista".next } 

end; 

procedure InsertInToList( var L,hpek:pekare); 

begin { L och hpek är varparametrar } 

hpek".next := L".next; { med hjälp av hpek och L kan vi påverka } 

L".next := hpek; { de globala variablerna hpek".next och } 

end; { L".next } 

procedure NextBox(L:pekare); { L är värdeparameter } 

var hpek : pekare; 

begin 

hpek := lista".next; 
while hpek <> nil do 
hpek := hpek".next; 

end; 
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Exempel 12.11 

Vi kommer nu att presentera programmet Pek3 som utför exakt det som Pekl utför. 
Programmet Pek3 är uppbyggt med hjälp av de mer generella procedurerna CreateHe- 
ad, InsertlnToList och NextBox. Ledtexten skrivs ut i procedurerna PrintPost och 
NextBox. 

program Pek3; 
type 

pekare = "personpost; { Pekartyp som pekar på personpost } 

personpost = record { Dynamisk typ som kan lagra information } 

fornamn : string[20]; { förnamn } 

efternamn : string[20]; { efternamn } 

tfn : string[lO]; { telefonnummer } 

next : pekare; { pekare till nästa personpost alt nil } 

end; 

var 

lista : pekare; { Pekare som anger var listan börjar } 
hpek : pekare; { Hjälppekare } 

svar : char; 

procedure CreateHead(var L:pekare); { L är varparameter } 

begin 

New(L); { Obs! med hjälp av pekaren L ändrar vi den } 

L".next := nil; { globala pekaren lista".next } 

end; 

procedure InsertInToList(var L,hpek:pekare); 

begin 

hpek".next:=L".next; 

L".next := hpek; 

end; 

procedure InsertPost; 
begin 
repeat 

New(hpek); 

Write('Ange förnamn: '); 

Readln(hpek".fornamn); 

Write('Ange efternamn: '); 

Readln(hpek".efternamn); 

Write( 'Ange tfn: '); 

Readln(hpek".tfn); 

InsertInToList(lista,hpek); 

Write('Skall flera personer läggas i listan (j/n): '); 

Readln(svar); 
until svar= 'n '; 

end; 

procedure PrintPost(hpek : pekare); 

begin 

with hpek" do begin 
Write(fornamn, ' '); 

Write(efternamn, ' '); 

Writeln(tfn, ' '); 

end; 

end; 
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procedure NextBox(L:pekare); { L är värdeparameter } 
var hpek : pekare; 

begin 

hpek := L^.next; 
while hpek <> nil do begin 
PrintPost(hpek); 
hpek := hpek".next; 

end; 

end; 

{ HUVUDPROGRAM } 

begin 

CreateHead(lista); 

InsertPost; 

NextBox(lista); 

end. 


De procedurer som vi måste ändra, om de dynamiska variablerna typdeklareras på 
ett annat sätt, är endast InsertPost och PrintPost och givetvis måste vi se till 
att typen pekare är rätt i deklarationsdelen. 

Vända en länkad lista. 


Här presenterar vi en procedur som vänder den länkade listan som skapades i 
programmet Pek3. 


procedure Vand(var L : pekare); 
var 

p,s,t : pekare; 

begin 

p:=L; 

s:=p~.next; 
t: =s" .next; 

while t <> nil do begin 

s".next := p; 

P == s; 
s : = t; 
t := t".next; 

end; 

s".next := p; 

L".next := nil; 

L : = s; 

end; 


Att vända listan som skapades i Pek3 sker 
alltså med kommandot: Vand(lista); 
p,s och t är lokala variabler. 


Obs! 

s".next är global. 


L".next är global. 

Det värde som L får i denna sats kommer även 
att var det värde som pekaren lista har 
efter det att proceduren lämnas 
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Ta bort element i en lista. 


För att ta bort ett element i en lista skall vi skicka med en pekare som pekar 
på det element som ligger före det som skall plockas bort. 


procedure DeletePost(p:pekare); 
var t : pekare; 

begin 

t := p".next; 

p".next := p".next".next; 

Dispose(t); 

end; 

Obs! 

Med hjälp av den lokala pekaren p 
kan vi nå de globala pekarna 
p".next och p".next".next. Peka¬ 
ren t används för att kunna fris¬ 
tälla minnet, som den bortkoppla¬ 
de dynamiska variabeln upptar. 


^frkFrV 


p".next 


•FTMTV 


p".next".next 


\y d - 1 

p t 

Efter DeletePost: 

♦EEHEHEb 


Söka i en länkad lista. 


Funktionen Find har två parametrar. Den första är x som motsvaras av det element 
som skall tas bort. L pekar på den lista i vilken elementet befinner sig. Om vi 
skall söka på efternamn och detta är deklarerat som string[20] måste även ele¬ 
menttyp deklareras på samma sätt. 


function Find(var x:elementtyp; Lrpekare):pekare; 
var p: pekare; 

hittat : boolean; 

begin 

hittat := false; 

p:=L; 

while (p".next <> nil) and (not hittat) do 
if p".next".efternamn = x then 
hittat := true 

else 

p := p".next; 

Find := p; 

end; 


Returnerar ett pekarvärde 


Om elementet finns i listan 
dvs p".next".efternamn = x 
så får hittat värdet true. 


Om vi t ex söker efter en person med efternamnet Lundguist kommer denna funktion 
att endast söka efter den första påträffade Lundguist i listan. För att vara 
säker på att rätt pekarvärde returneras kan vi utöka parametrarna genom att även 
skicka med förnamn och adress. Personnummer är bra att söka på eftersom det är 
unikt. 
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Funktionen Find använd i programmet Pek3: 

program Pek3; 

type 


elementtyp = string[20]; . 


listan är skapad enligt Pek3. 


procedure DeletePost(p:pekare); 

end; 

function Find(x:elementtyp; L:pekare):pekare; 


end; 

Write('Ange efternamn: '); 

Readln(efternamn); 
hpek2 := Find(efternamn,lista); 
if hpek2 <> nil then 
DeletePost(hpek2); 
else 

Writeln( 'Finns ingen person med detta namn) 


Exempel på del av procedur 
eller huvudprogram som använder 
funktionen Find och proceduren 
DeletePost för att ta bort en 
person ur listan. 


Stoppa in ett element på valfri plats i listan. 


-^Fn^FT^FrhFTH- 

i “i / P -next 

I I ,/ Pekaren p anger att ett element skall läggas in efter b. 


Insättningen sker med hjälp av 

procedure InsertInToList(x,y,z:elementtyp;p:pekare); 
var temp : pekare; 

begin 

temp:=p~.next; 

New(p~.next); 
p~.next~.fornamn := x; 
p~.next~.efternamn := y; 
p~.next".tfn := z; 
p".next".next := temp; 
end; 


temp^p" .next; 
New(p".next); 


■FTkNI ^FM 

/ p~.next^ 

cy d — 1 


>ED- 
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p".next~.fornamn := x; Lägger förnamn, efternamn och telefonnummer i den 
p~.next~.efternamn := y; dynamiska variabel som pekaren p~.next pekar på. 
p~.next".tfn := z; 


p" .next" .next := temp; I De dynamiska variablerna kopplas slutligen ihop. 


12.12 Återlämna minnesutrymme. 

Dispose(hpek); 

Instruktionen Dispose(hpek); "återlämnar" minnesutrymmet för den dynamiska vari¬ 
abeln som hpek pekar på. Efter Disposesatsen har hpek inget värde definierat. 
Det största problemet när Dispose används är att man måste vara helt säker på 
att det inte finns någon eller några andra pekare som pekar på det utrymme som 
skall friställas. 


Exempel 12.12 

Kommandot 

Dispose(hpek) 

återlämnar den dynamiska 
variabelns minnesutrymme 

hpek := nil; 

återlämnar inte den 

dynamiska variabelns min¬ 
nesutrymme . 


Obs! Både leta och hpek 

pekar på samma element. 



D-m 

hpek 
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12.13 Ta bort en länkad lista. 


Om en länkad lista ej skall användas mer skall minnesutrymmet friställas. Då går 
det ej att göra dispose på den första pekaren för då försvinner bara den första 
dynamiska variabeln och resten av listan finns kvar under exekveringen och kan 
ej nås, men värre är att det minnesutrymme som listan upptar ej kan användas 
under programexekveringen. 

proceduren Tabort nedan tar bort en enkellänkad lista. 

type 

pekare = "post; 
post = record 


next : pekare; 

end; 


procedure T abort(lista:pekare); 

var 

temp : pekare; 

begin 

while lista <> nil do begin 

temp := lista; 
lista := lista".next; 
Dispose(temp); 

end; 

end; 
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12.14 Ändra information på valfri plats i en länkad lista. 

Exempel 12.13 

Proceduren Change är gjord för att användas i den länkade lista som skapades med 
hjälp av Pek3. 

procedure Change(L:pekare); 
var hpek : pekare; 
hittat : boolean; 
fornamn,efternamn : string[20]; 
tfn : string[lO]; 
begin 

Writeln( 'Information angående följande person skall ändras.'); 

Write('Ange förnamn: '); 

ReadlnC fornamn); 

Write('Ange efternamn: '); 

Readln(efternamn); 

Write( 'Ange tfn. '); 

Readln(tfn); 
hpek:=L".next; 
hittat:=false; 

while (hpekOnil) and (not hittat) do begin 

if (hpek".fornamn = fornamn) and (hpek".efternamn = efternamn) and 

(hpek".tfn = tfn) then begin 

Writeln( 'Ändras till!'); 
with hpek" do begin 
Write('Förnamn: '); 

Readln(fornamn); 

Write('Efternamn: '); 

Readln(efternamn); 

Write( 'Tfn: '); 

Readln(tfn); 

Write( 'Informationen är ändrat till: '); 

Write(fornamn, ' '); 

Write(efternamn, ' '); 

Writeln(tfn); 

end; 

hittat := true; 

end 

else 

hpek:=hpek".next; 

end; 

if not hittat then 

Writeln( 'finns ej någon sådan person i registret!') 
end; { Change } 
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13 Filhantering 

13.1 Inledning. 

Vi skall i detta kapitel behandla både sekventiella- och direktfiler. Vi skall 
även ta upp den fördeklarerade typen TEXT och felhantering vid in- och utmat¬ 
ning . 

En nackdel med att lagra information på en intern fil, typ en array eller en 
länkad lista, är att den går förlorad då datorn stängs av. För att inte gå miste 
om någon information kan vi lagra den på en extern fil, t. ex en diskett. När vi 
sedan åter igen startar datorn, kan vi lätt läsa in information från vår diskett 
och åter lagra den i en array eller i en länkad lista. 

DATORN <-> DISKETT 

intern fil extern fil 

(primär minne) (sekundär minne) 

En extern fil i Pascal är en strukturerad datatyp som innehåller en mängd ele¬ 
ment av samma typ, och skiljer sig från en arraystruktur genom att den kan vara 
av godtycklig längd. Längden av en arraystruktur har som du redan vet en given 
längd som är bestämd i deklarationsdelen. 

var namn : array[1.. 20 ] of char; 

13.2 CONFIG.SYS. 

Operativsystemet MS-DOS är begränsat till att ha 20 filer öppna samtidigt. Fem 
av dessa är redan öppna standardfiler. Detta innebär att ett program kan öppna 
högst 15 filer samtidigt. För att vara säker på att din maskin verkligen kan ha 
20 filer öppna måste texten: 

files=20 

stå i din CONFIG.SYS fil. 

13.3 Sekventiella filer. 

Sekventiella filer kännetecknas av att vid läsning av filen måste alltid den 
första posten läsas först därefter post nummer två, post nummer tre osv. Att 
skriva på en sekventiell fil sker på motsvarande sätt dvs posterna skrivs i tur 
och ordning. Vidare går det inte att skriva och läsa omväxlande på sekventiella 
filer. En post på en fil är ej samma sak som en post (record) i Pascal. En post 
på en fil kan bestå av ett tecken, ett heltal, ett reellt tal men även en hel 
record. En post på en fil är den enhet som programmeraren begär läsning eller 
skrivning av. 


13.3.1 Deklaration av filtyp och intern filvariabel. 

Antag att vi har en sekvens av element av samma datatyp t ex integer. Hur skall 
vi då göra för att kunna lagra dessa element (heltal) på en diskett i form av en 
fil? Varje heltal kommer att utgöra en post. 

Vi måste först deklarera en filtyp och en intern filvariabel. Låt oss kalla den 
interna filvariabeln för fili. Filtypen måste vara av den typ som lagrar heltal 
dvs integer. Deklarationen kan då få följande utseende: 
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{ Filtyp } 

{ intern filvariabel } 


type 

heltalsfil = file of integer; 

var 

fili : heltalsfil; 

Vi kan ersätta deklarationen ovan med: 

var 

fili : file of integer; 

13.3.2 Sammankoppling med disketten (fysiska filnamnet). 

Vi måste koppla ihop den interna filvariabeln, fili med sekundärminnet (disket¬ 
ten). Vi måste då skapa filens fysiska namn, dvs namnet på den fil på disketten 
som heltalen kommer att lagras under. Låt oss kalla den för HELTAL.DAT (högst 8 
tecken + ev punkt och högst 3 ytterligare tecken (filtyp)). 

DATORN <-> DISKETTEN 

fili HELTAL.DAT 

(interna filvariabeln) (fysiska filnamnet) 

Assign. 

Sammankopplingen mellan den interna filvariabeln och det fysiska filnamnet sker 
med en Assign-sats. 

Assign(fili, 'HELTAL.DAT'); 

Vill vi spara heltalen på minnesenhet B: skriver vi 

Assign(fili, 'B:HELTAL.DAT'); 

13.3.3 Skriva på fil. 

Början på ett program som skall kopplas till en fil med namnet HELTAL.DAT skulle 
kunna ha följande utseende: 

program Skrivfill; 

var 

fili : file of integer; 

begin 

Assign(fili, 'HELTAL.DAT'); 

Rewrite och Close. 

För att kunna skriva på filen HELTAL.DAT måste den antingen redan vara skapad på 
disketten eller också får vi skapa filen HELTAL.DAT och öppna den för skrivning. 
För att skapa och öppna en fil enligt deklarationen från programmet Skrivfill 
används kommandot: 

Rewrite(fili); 

Om det nu redan finns en fil med namnet HELTAL.DAT så kommer denna att raderas 
och ersättas. Vi kan börja skriva på filen HELTAL.DAT med satsen: 

Write(fili,<variabel>); 

När vi skrivit färdigt på filen skall den stängas, detta sker med satsen: 

Close(fili); 
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Sammanfattning. 

1. Variabeldeklarera det interna filnamnet. 

2. Gör sammankopplingen mellan interna-fysiska filnamnet. 

Assign(internt filnamn, 'FYSISK1 FILNAMN'); 

3. Skapa och öppna filen. Om filen redan finns, raderas den. 

Rewrite(internt filnamn); 

4. Skriv på filen. 

Write(internt filnamn,<variabel>); 

5. Stäng filen. 

Close(internt filnamn); 

Att stänga en ej öppnad fil medför exekveringsfel. 


Exempel 13.1 

program Skrivfill; 

var 

fili : file of integer; 
heltal : integer; 

begin 

Assign(fili,'HELTAL.DAT'); { Sammankoppling } 

Rewrite(fili); { Skapar/öppnnar } 

WritelnC 'Inläsning av heltal på filen HELTAL.DAT.'); 

Write('Ange ett tal (0 avslutar inläsningen): '); 

Readln(heltal); 

while heltal <> 0 do begin 

Write(fili,heltal); { Skriver på filen HELTAL.DAT } 

Write('Ange ett tal (0 avslutar inläsningen): '); 

Readln(heltal); 

end; 

Close(fill); { Stänger filen HELTAL.DAT } 

end. 

Heltalen som lagras med hjälp av programmet Skrivfill, lagras på en sekventiell 
fil som har det fysiska filnamnet HELTAL.DAT. 

1. Att filen är sekventiell innebär bl a att när vi sedan vill läsa talen på 
filen så måste vi alltid börja med att läsa det första talet på filen och 
därefter talen i tur och ordning som de ligger lagrade på filen. 

2. Att filen är sekventiell innebär även att man inte kan utföra de båda ope¬ 
rationerna "läsning" och "skrivning" växelvis. 
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13.3.4 Deklaration av filtyp 


Det är inte säkert att det alltid är heltal vi vill lagra på en fil och givetvis 
går det bra att lagra annan information. En deklaration av filtyp och en filva¬ 
riabel har det allmänna utseendet: 


type 

filtyp = file of <datatyp>; 

var 

filvariabel : filtyp; 


Exempel 13.2 

type 

fili = file of integer; 

fil2 = file of real; 

ordfil = file of string[30]; 

text = file of char; 


Obs! En filtyp får endast innehålla element av samma datatyp. 
En filvariabel kan också deklareras direkt: 


filvariabel 


Exempel 13.3 


file of <datatyp>; 


var 

talfil 


file of integer; 


13.4 Aktuell filposition - Buffertvariabel. 

Innan vi går vidare och försöker läsa på en sekventiell fil, skall vi undersöka 
lite närmare, vad som händer när en fil deklareras. 

Till varje filstruktur som deklareras hör en filpekare och en buffertvariabel. 
Eilpekaren är en variabel som innehåller aktuell filposition. Referenser till 
elementen i filstrukturen sker alltid via buffertvariabeln. Buffertvariabeln 
skall ej deklareras. Filpekaren och buffertvariabeln får man på köpet då filen 
deklareras. 


Vi kan åskådliggöra buffertvariabeln med aktuell filposition på följande sätt. 
Antag att vår sekventiella fil har följande utseende: 


1 


3 


3 


2 1 67 | 12 


Eof 


buffertvariabel 

nn 


t 

aktuell filposition. 


I buffertvariabeln ligger det element som filpekaren pekar på, i fallet ovan 
talet 67. 


Eof. 

Eof (end of file) är en boolesk standardfunktion, som testar om filen är slut. 
Eof returnerar värdet falskt om det finns flera element i filen och returnerar 
värdet sant om filstrukturen är i "end of file"- tillstånd dvs att inga flera 
element finns på filen. Vi kan alltså testa på filslutsmarkeringen med komman¬ 
dot : 


while not Eof(intern filvariabel) do . 

Så länge man ej nått slutet på filen, kommer satsen eller satserna efter do att 
utföras. 
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13.4.1 Rewrite. 


Rewrite skapar en ny fil på disketten med det namn som angavs i Assign och fil¬ 
pekaren ställer sig i början av filen, dvs på element noll. Om det redan finns 
en fil med namnet som angavs i Assign kommer denna att raderas. 

När vi skriver satsen RewriteCfili) får vi följande utseende: 

ED 

t 

Aktuell filposition 

Om en variabel heltal har värdet 3 ger satsen 
Write(fili,heltal); följande bild: 


5 Eof 


i 

Aktuell filposition Obs! Efter Write(fil1,heltal) flyttas filpekaren. 

13.4.2 Läsa sekventiell fil. 

För att kunna läsa en fil måste först den interna filvariabeln kopplas till den 
externa filvariabeln. Detta sker som vi redan sett med kommandot: 

Assign(fili, 'HELTAL.DAT '); 

Därefter måste filen öppnas och filpekaren sättas till filens början, dvs på 
element noll. Detta sker med hjälp av kommandot: 

Reset(intern filvariabel); 

Obs! Om inte filen finns på disketten kommer programexekveringen att avbrytas 
och ett felmeddelande visas på skärmen. Detta problem tas upp senare i 
kapitlet. 

Den aktuella filpekaren flyttas från Eof till det första elementet. 


m 

□ 

m 

□ 

un 

□ 

Eof 


t 


Aktuell filpekare 


E 

JL 

I 

I 

JL 

JL 

Eof 


t 


Aktuell filpekare 

Det går inte att använda Rewrite när en fil skall läsas. Rewrite raderar filen. 
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Exempel 13.4 

Vi skall nu skriva ett program som läser filen HELTAL.DAT som skapades med prog¬ 
rammet Skrivfill. När vi skapade filen HELTAL.DAT använde vi det interna filnam¬ 
net fili. Detta namn behöver vi inte använda när vi läser filen HELTAL.DAT utan 
vi kan hitta på ett nytt. Lör enkelhetens skull använder vi samma interna fil¬ 
namn. Vi måste öppna filen HELTAL.DAT för läsning. Detta sker med satserna: 

Assign(fili, 'HELTAL.DAT'); 

Reset(fili); 

Som du redan vet så kopplar Assign samman det interna filnamnet med det fysiska 
filnamnet. Reset ställer den aktuella filpekaren på första elementet på filen. 
Rewrite hade raderat hela filen. Vi läser elementen på filen med satsen: 


Read(fili,<variabel>); 

Programmet som läser samtliga element på den sekventiella filen HELTAL.DAT ska¬ 
pad av programmet Skrivfill kan då se ut så här: 

program Lasfill; 

var fili : file of integer; 
heltal : integer; 

begin 

Assign(fili, 'HELTAL.DAT'); 

Reset(fili); 

Writeln('följande tal är lagrade på filen: '); 
while not Eof(fill) do begin 

Read(fili,heltal); { Lilpekaren flyttas ett steg } 

Writeln(heltal); 

end; 

Close(fili); 

end. 


Sammanf attning. 

Assign Sammankopplar internt och fysiskt filnamnet. 

Rewrite Skapar en fil och öppnar den för skrivning. 

(Om filen redan finns, raderas den.) 

Write Skriver på filen 

Reset flyttar den aktuella filpekaren till första elementet på filen. Klart 

för läsning. 

Read Läser på filen. 

Close Stänger filen. 

De filer som vi beskrivit har varit sk sekventiella filer. De måste öppnas innan 
de går att skriva på eller läsa från. 

Obs! Read kan inte följas av write och givetvis kan inte write följas av read. 
Antingen läser man filen eller så skriver man på den. 
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13.4.3 Tillägg till en redan befintlig fil. 
Seek och FileSize. 


Antag att vi vill lägga till tal i filen HELTAL.DAT. Vi kan då inte öppna filen 
med satsen Rewrite för då går vi miste om elementen på filen. Däremot kan vi 
öppna filen med satsen Reset, men då kommer filpekaren att peka på första ele¬ 
mentet. Vi flyttar då tillbaka filpekaren med funktionen: 

Seek(interna filvariabeln, antal element på filen); 

Antalet element på filen är av typen longint, Seek(filvar; antal:longint) 

Antalet element på filen kan läsas av funktionen FileSize, som returnerar ett 
tal av typen longint. 

FileSize(internt filnamn); 

Från början har vi följande bild: 


□ 

□ 

□ 

0 

TEL 


Aktuell filpekare 


Efter Seek(interna filvariabeln, FileSize(internt filnamn)) får vi utseendet: 


E 

.1 

JL 

JL 

LL 

JL 

Eof 


t 


Aktuell filpekare 


FilePos. 

Den aktuella filpekarens position kan läsas med funktionen FilePos. Funktionen 
returnerar ett värde av typen longint. 

FilePos(internt filnamn); 


Obs! Seek, FileSize och FilePos kan inte användas på textfiler. Vidare måste 
filerna vara öppna då funktionerna används. 
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Exempel 13.5 


Programmet LaggTillfl lägger till tal på filen HELTAL.DAT skapad av programmet 
Skrivfill. 

program Lagglillfl; 

var fili : file of integer; 
heltal : integer; 

begin 

AssignC fili , 'HELTAL.DA1'); 

Reset(fill); {Eilen måste vara skapad t ex av programmet Skrivfill} 

Seek(fil1,EileSize(fil1)); 

Write( 'Ange talet som skall läggas till (0 avslutar) '); 

Readln(heltal); 

while heltal <> 0 do begin 

Write(fil1,heltal); { Filpekaren flyttas ett steg } 

Write( 'Ange tal (0 avslutar): '); 

Readln(heltal); 
end; 

Close(fili); 

end. 

13.5 Textfiler, TEXT. 

Eftersom en fil ofta består av tecken, finns det i Pascal en redan fördeklarerad 
filtyp vid namnet TEXT i Pascal. TEXT är en sekventiell fil som är uppbyggd av 
ett antal tecken, indelade i rader. Varje radslut markeras med ett speciellt 
radslutstecken. I MS-DOS används tecknena <CRXLE> som radslutstecken som enligt 
ASCII-tabellen har kodvärdena 13,10. Lör att visa att textfilen är slut används 
kontrolltecknet CTRL-Z med kodvärdet 26. 

Obs! FileSize, FilePos och Seek kan ej användas på filer som är deklarerade som 
TEXT. 

En textfil är redan fördeklarerade enligt: 
type TEXT = file of char; 

Detta innebär att ett program kan ha följande utseende: 

program Test; 
var fili : TEXT; 

Eilen TEXT är av samma typ som de filer som används för att lagra dina Pascal 
program och de består av enkla rader. Du kan titta på textfilerna med hjälp av 
din editor och då givetvis ändra i dem med hjälp av editorn. Du kan även skapa 
textfiler med hjälp av editorn. 

Eoln. 

Som vi redan nämnt så består textfiler av rader, dessa skiljs åt av en radsluts- 
markering, Eoln (end of line) jmf Eof. 

Precis som vi kan testa slutmarkeringen på en fil med Eof kan vi testa radsluts- 
markering med Eoln. 

Eoln: 


Eoln(intern filnamn) 

är en boolesk funktion som undersöker om radslutsmarkeringen är nådd. 
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Readln: 


Readln(internt filnamn, <variabel>) 

läser så många rader som behövs för den deklarerade variabeln, dock längst till 
Eoln. 

Writeln: 

Writeln(internt filnamn,<variabel>); 

Skriver hela texten, därefter Eoln-markering. 

Om du skriver heltal, flyttal eller booleska värden på en textfil kommer dessa 
att omvandlas till en teckensträng. Med Writeln sättes automatiskt Eoln. 

Exempel 13.6 

Exempel på en textfil (ord.txt). 

Hur många tecken kommer variablerna nedan att läsa? 

Textfilen ovan består av 51 tecken (inkl. mellanslag ). Radslutsmarkeringen är 
efter frågetecknet. 

Om vi har följande variabeldeklaration. 

var 

fili : TEXT; 

a : string[3]; 

b : string[9]; 

c : string[60]; 

Vad kommer satserna nedan att tilldela variablerna a, b och c? 


Readln(fili,a); 

Svar: 

Hur 

Readln(fili,b); 

Svar: 

Hur många 

Readln(fili,c); 

Svar: 

Hur många tecken kommer variablerna nedan att 
läsa? ( och 9 blanktecken ) 


203 




13.5.1 Lagra på textfil. 

Exempel 13.7 

Programmet nedan lagrar 10 namn i en array och läser därefter namnen till en 
textfil vid namnet PERS0N.TXT. 

program TestText; 
var fili : TEXT; 

namn : array[l..10] of string[40]; 
nr : integer; 

begin 

Writeln('Inläsning i array.'); 
for nr := 1 to 10 do begin 
Write('Ange namn ',nr,': '); 

Readln(namn[nr]); 

end; 

Writeln; 

Writeln('Inläsning på textfil.'); 

Assign(fili, 'PERSON.TXT '); 

Rewrite(fili); 
for nr 1 to 10 do 
Writeln(fil1,namn[nr]); 

Close(fill); 

Writeln('Inläsningen klar!'); 

end. 

13.5.2 Läsa textfiler. 

När man läser från en fil kan man givetvis läsa på lite olika sätt. Vi kommer 
här att läsa tecken för tecken på filen och vi kommer att testa på Eof innan vi 
börjar att läsa elementen på filen. Detta gör vi med satsen 

while not Eof(internt filnamn) do . 

Exempel 13.8 

Vi börjar med att skapa en fil med hjälp av vår editor. 

Kalla filen: TEXT1.TXT. 

Skriv följande på filen. 

Detta är en 

test 

på 

textfiler. 

Gå ur editorn och spara filen (TEXT1.TXT): 
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Nu kan vi skriva ut vad som finns på filen TEXT1.TXT med hjälp av nedanstående 
program. 

program TestTxt; 
var fili : TEXT; 
a : char; 

begin 

Assign(fili, 'TEXTI.TXT '); 

Reset(fil1); 

while not Eof(fill) do begin 
while not Eoln(fill) do begin 
Read(fili,a); 

Write(a); 

end; 

Readln(fill); 

Writeln; 

end; 

Close(fili); 

end. 

Vi skall numrera raderna, så att det är lättare att förklara deras innebörd. 

1. program TestTxt; 

2. var fili : TEXT; 

3. a : char; 

4. begin 

3. Assign(fil1, 'TEXT1.TXT'); 

6. Reset(fill); 

7. while not Eof(fill) do begin 

8. while not Eoln(fill) do begin 

9. Read(fili,a); 

10. Write(a); 

1 1 . end; 

12. Readln(fill); 

13. Writeln; 

14. end; 

13. Close(fill); 

16. end. 

Rad: 

7. Testar om vi kommit till slutet av filen, i så fall går vi 
till rad 15. 

8. Om vi inte kommit till slutet på filen, testar vi om vi kommit till slutet 
på en rad. 

9. Om vi inte kommit till slutet på filen eller raden så kommer vi att läsa 
ett tecken pga att det står read. Om det i stället stått Readln här hade 
vi bara läst ett tecken och därefter hoppat till nästa rad. Vi hade alltså 
aldrig läst textradens Eoln. 

10. Skriver ut tecknet som vi läste på rad 9 och 

går därefter tillbaka till rad 8 och testar på Eoln. Om ej Eoln utförs rad 
9 och 10 åter igen, och så här håller vi på tills vi stöter på Eoln. När 
vi stöter på Eoln går vi till rad 11. 

12. Denna rad läser förbi Eoln dvs gör oss färdiga att läsa första tecknet på 
nästa rad. 

13. Gör en vagnretur på vår bildskärm. Nu går vi tillbaka till rad 7. 
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Sammanfattning. 


a) Vi testar om filen är slut. 

while not Eof(fill) do begin 

end; 

b) Om filen inte är slut läser vi tecken för tecken tills vi stöter på 
Eoln. 

while not Eoln(fill) do begin 

end; 

c) För att komma förbi radslutsmarkeringen använder vi satsen: 

Readln(fili); 

För att få en ny rad på bildskärmen använder vi satsen: 

Writeln; 


13.6 Felhantering vid in och utmatningar. 

IOResult. 

Som du säkert redan har märkt så avbryts exekveringen av ett program om man 
t ex försöker mata in en bokstav till en variabel som är deklarerad som heltal, 
det uppstår ett sk I/O-fel, (In och Out fel). Som vi redan nämnt så finns det 
ett antal kompileringsdirektiv i Turbo Pascal, ett av dessa är {$1+}. Kompile- 
ringsdirektivet I, används just för I/O-kontroll. Genom kompileringsdirektivet 
{$1-} stängs I/O-kontrollen av och felhanteringen överlåts till programmeraren. 
Om det uppstår I/O-fel spärras all I/O-hantering tills resultatet av I/O-hante- 
ringen undersökts. Detta görs med standardfunktionen IOResult. Om inget fel har 
inträffat ger IORresult värdet noll, I0Result=0. I ver 4.0 returnerar IOResult 
ett tal av typen word och överensstämmer med felkoderna i MS-DOS, detta gäller 
dock ej ver 3.0. Gemensamt för båda versionerna är att IOResult returnerar vär¬ 
det noll om allt har gått bra. 
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Exempel 13.12 

Funktionen IOResult nollställs vid varje anrop. Eftersom vi vill använda resul¬ 
tatet av det första anropet av IOResult, lagrar vi värdet i den logiska varia¬ 
beln fel. 

program I0_test; 
var tal : integer; 
fel : boolean; 

begin 

{$1-} { passiv mod } 

repeat 

Write('Ange ett tal: '); 

Readln(tal); 

fel := (IOResult <> 0); { I0Result=0 ger false annars true } 

if fel then 

Writeln('Tal är deklarerad som integer, försök igen!'); 
until not fel; 

{$1+} { aktiv mod } 

Writeln('Programmet avslutat pga att tal fick ett riktigt värde.'); 

end. 
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Exempel 13.13 


Programmet frågar efter en fil. Därefter testar proceduren FinnsFil om filen 
finns eller ej. Om filen finns testar funktionen TomFil om filen är tom eller 
innehåller information. 

program I0_test2; 
uses Crt; 
type 

filtyp = file of char; 
str12 = string[l2]; 
var 

fil : filtyp; 
filnamn : str12; 

function TomFil (var fil : filtyp):boolean; 

begin 

TomFil :=(FileSize(fil) <=0); { Går ej för TEXT filer } 

end; 

procedure FinnsFil (var filnamn : str12); 
var finns : boolean; 

begin 

finns := false; 

ChDir( 'A:V); { Byter till diskdrive A: } 

Assign(fil,filnamn); 

{$1-} Reset(fil); {$1+} 
finns := (IOResult = 0); 
if finns then begin 

Write('Filen finns! '); 
if TomFil(fil) then 

Writeln('Filen är tom!') 
else 

Writeln('Filen är ej tom!'); 

end 

else 

Writeln( 'Filen finns ej!'); 
if finns then 
Close(fil); 

end; 

{ HUVUDPROGRAM } 
begin 
ClrScr; 

Write( 'Ange fil: '); 

Readln(filnamn); 

FinnsFil(filnamn); 

end. 
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13.7 Direktfiler, random file. 


Som vi sett för sekventiella filer kan nya poster på filen bara läggas till i 
slutet av filen och vidare kan inte gamla poster ändras. Givetvis går det att 
ändra poster i en sekventiell fil, men då måste filen kopieras över till en ny 
fil. För att läsa poster sker detta sekventiellt dvs för att läsa en post måste, 
alla poster före denna post läsas först. Även textfiler är sk sekventiella filer 
I Turbo Pascal finns det möjlighet till direktfilshantering när det gäller arbe¬ 
te med diskfiler. I en direktfil kan enskilda poster läsas direkt och gamla pos¬ 
ter kan uppdateras utan att samtliga poster måste sökas igenom och kopieras till 
en ny fil. Posterna i direktfiler måste vara lika stora, detta för att kunna 
bestämma posternas plats med hjälp av filens startposition och posternas nummer. 

En direktfil kan liknas vid en array dvs varje plats kan nås genom ett index. I 
direktfilen motsvaras index av postnumret. För att kunna arbeta med direktfiler 
används en serie standardfunktioner och standardprocedurer. 

13.7.1 Förflyttning mellan posterna. 

Seek. 

För att förflytta sig i en direktfil används proceduren Seek. 

Seek(intern filvariabel,n); 

Filpekaren flyttas till det n:te elementet i filen, n är av typen longint. 

Första elementets position är noll. 

Läsning. 

Seek(intern filvariabel,n); 

Read(variabel); { Obs! även Read flyttar filpekaren ett steg } 


Skrivning. 

Seek(intern filvariabel,n); 

Write(variabel); { Obs! även Write flyttar filpekaren ett steg } 


Bygga på efter sista posten. 

Seek(intern filvariabel,FileSize(intern filvariabel)); 
Write(intern filvariabel,variabel); 


13.7.2 Direktadressering. 

För att nå en post används postens nummer, som är postens fysiska adress. Med 
direktadressering menas alltså att en posts adress är entydigt härledbar ur 
postens sk id-värde. För varor kan vi t ex använda artikelnummer som id-värde, 
för personer deras födelsenummer osv. Detta verkar vid en första anblick enkelt. 
Vi skall behandla några möjligheter att använda direktadressering. 

Absolut direktadressering. 


Här utgör postens adress postens id-värde. Detta kan ge upphov till stor 
spridning av posterna med stora tomrum på minnet som följd. Tekniken an¬ 
vänds nästan aldrig i praktiken. 


209 



Härledd direktadressering. 

Med någon lämplig algoritm genereras postens fysiska adress med hjälp av 
id-värdet. Den relativa adressen anger alltså postens relativa placering i 
filen. Att transformera id-adressen med hjälp av någon algoritm (randomise- 
ringsalgoritm) kallas för pseudoadressering. Vi ger exempel på två stycken 
randomiseringsalgoritmer. 

Mittersta-kvadrat metoden. 

Denna metod innebär att det numeriska id-värdet kvadreras och ett antal 
siffror ur mitten av resultatet används. Exermaelvis kan varan med artikel¬ 
nummer 2456 få den relativa hemadressen (2456 =6031936) 319, om de tre mit¬ 
tersta siffrorna skall användas för adressering. 

Division-rest metoden. 

Här divideras id-värdet med antalet adresserbara enheter och den erhållna 
resten används som relativ hemadress. Antag, att adressområdet är 0-999. Vi 
dividerar då id-värdet med 1000. Hemadressen för en artikel med id-värde 
8567 blir då 567. (8567/1000 = 8,567, resten är 567) 

Som du kanske redan förstått kommer vi att få artiklar som får samma hemadress, 
sk synonymer. Detta får då lösas på olika sätt vilket vi inte tar upp i denna 
bok. 

13.7.3 Poster. 

När det gäller poster kan hela postens innehåll skrivas in med ett kommando på 
en fil. Detta gäller även för sekventiella filer. Antag, att vi har följande 
deklaration: 

Exempel 13.14 

type 

VaruPost = record 

namn : string[20]; 

pris : real; 

tompost : boolean; 

end; 

var vara : VaruPost; { postvariabel } 

fil : file of VaruPost; { filvariabel } 

Nu kan hela posten skrivas in med hjälp av filvariabeln fil och postvariabeln 
vara: 

Write(fil,vara); { Obs! hela posten skrivs in på filen } 

Med samma deklaration kan en hel post från filen läsas med: 

Read(fil,vara); { Obs! hela posten läses in i variabeln vara } 


{ VaruPost kan lagra informationen } 
{ namn, 20 tecken } 

{ pris } 

{ värdet true/false } 
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13.7.4 Minnesutrymme. 


När de gäller direktfiler kan dessa byggas upp på två sätt. Precis på samma sätt 
som för sekventiella filer skrivs posterna efter varandra. Det andra alternati¬ 
vet är att från början bestämma hur många poster som skall finnas på filen och 
därefter skapa utrymme för dessa poster. Därefter kan posterna läggas in på den 
plats på filen som är adress för resp post. Detta sätt kan jämföras med hur du 
arbetar med vektorer. Först deklareras längden av vektorn och därefter kan vek¬ 
torn fyllas med information, direktadresseras med hjälp av index. 

Antag att vi vill förbereda en fil för att kunna lagra ett antal poster. Vi bör¬ 
jar då med att reservera minne för det antal poster som skall finnas på filen. 
Antag, att vi skapar plats för 1000 poster på en fil. Därefter skriver vi in 330 
poster på olika ställen på filen. Hur skall vi nu kunna vara säkra på att vi 
inte skrivit en eller flera poster på samma adress. Om vi har gjort detta så är 
en sak säker, det är bara den sist inskrivna posten som är lagrad på filen, de 
andra är överskrivna av denna post. För att kunna veta om det finns information 
lagrad på en viss adress lägger vi en boolesk variabel i posten, som vi kan 
testa på. Låt oss kalla denna variabel tompost. Om tompost har värdet true finns 
det redan en post inskriven, om tompost har värdet false är posten tom. I det 
senare fallet kan vi alltså skriva in vår post utan att skriva över någon infor¬ 
mation. När vi börjar att initiera vår fil för ett antal poster lägger vi samti¬ 
digt in värdet false på platsen tompost. Denna initiering kan göras med hjälp av 
proceduren SkapaPlats. Antag, att deklarationen enligt exempel 13.14 gäller, då 
kan proceduren SkapaPlats ha följande utseende: 

procedure SkapaPlats(antal : integer; vara : VaruPost); 
var postnr : integer; { antal = antal poster } 

begin 

vara.tompost := false; { Initierar att posten är tom } 
for postnr := 0 to antal do 

Write(fil,vara); { Förbereder plats för en hel post. Lägger } 

end; { även in värdet false på tompost } 

Exempel 13.15 

Programmet DirektFil skapar en fil, filen initieras av proceduren SkapaPlats. Vi 
kontrollerar inte om den fil som skapas redan finns, vilket man normalt bör 
göra. Därefter finns det möjlighet att lägga in information på valfri plats på 
filen. Detta sker med proceduren SkrivInPost. Adressen till respektive post är 
postens nummer. Om siffran noll anges avslutas inmatningen, därefter kan poster¬ 
na läsas med proceduren Skrivtlt. 

program DirektFil; 

type 

VaruPost = record 

namn : string[20]; 
pris : real; 
tompost : boolean; 

end; 

var vara : VaruPost; 

fil : file of VaruPost; 

antal,postnr : integer; 

filnamn : string[12]; 

procedure SkapaPlats(antal : integer; vara : VaruPost); 
var postnr : integer; 

begin 

vara.tompost := false; 
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for postnr := 0 to antal do 
WriteCfil,vara); 

end; 


procedure SkrivInPost(pnr : integer); 

begin 

Seek(fil,pnr); { filpekaren ställs på rätt adress, pnr = adress } 

Read(fil,vara); { hela posten läses in i postvariabeln vara } 
if vara.tompost then { testar om filen är tom } 

WritelnC'POSTEN FINNS REDAN!') 

else begin 


with vara do begin 
Write( 'Ange namn: '); 
Readln(namn); 

Write( 'Ange pris: '); 
Readln(pris); 
tompost : = true; 

Seek(fil,pnr); 

Write(fil,vara); 
end; 


{ Här läses namn och pris in. Tompost får } 
{ värdet true. Eftersom vi förut läste } 
{ posten Read(fil,vara); så flyttades fil- } 
{ filpekaren till nästa post. För att skriva} 
{ på rätt post måste vi flytta tillbaka } 
{ filpekaren till rätt post. Detta sker med } 
{ Seek(fil,pnr);. Nu vet vi att vi är på } 
{ rätt post och skriver posten med } 
{ Write(fil,vara); } 


end; 

end; 


procedure SkrivUt(pnr : integer); 

begin 

Seek(fil,pnr); { Filpekaren ställs på rätt adress, pnr = adress } 

Read(fil,vara); { Hela posten läses in i postvariabeln vara } 
if not vara.tompost then { testar om vara.tompost är false } 
Writeln( 'POSTEN ÄR TOM. ') 

else begin 

with vara do begin 

Writeln('Namn: ',namn); 

Writeln('Pris: ',pris :4:2); 

end; 

end; 

end; 


begin 

Write( 'Ange namnet på direktfilen som skall skapas: '); 

Readln(filnamn); 

Assign(fil, filnamn); 

Rewrite(fil); 

Write('Ange antal poster som skall finnas på filen ',filnamn,': '); 
Readln(antal); 

SkapaPlatsCantal,vara); 

WritelnC'Inskrivning av poster. (Postnr = adress för resp post på filen.)'); 
WriteC 'Inläsning avslutas om noll anges. Ange postnr: '); 

Readln(postnr); 
while postnr <> 0 do begin 
SkrivInPost(postnr); 

WriteC 'Inläsning avslutas om noll anges. Ange postnr: '); 

Readln(postnr); 

end; 

WritelnC 'Information om vad som är lagrat i en post. ',); 

WritelnC'Om noll anges ges ingen information! 

WriteC'Angående vilken post önskas information? Ange postnr: '); 

Readln(postnr); 

while postnr <> 0 do begin 
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Skrivllt(postnr); 

Write('Angående vilken post önskas information? Ange postnr: '); 
Readln(postnr); 

end; 

Close(fil); 

end. 

Som du ser av programmet ovan så hittar man respektive post med kommandot: 

Seek(fil,postnummer); 

En viktig sak att tänka på är att när kommandona Read eller Write utförs på en 
fil så flyttas filpekaren till nästa post. Om vi inte skall läsa eller skriva på 
direktfilen sekventiellt bör man använda Seek innan Read och Write för att vi 
skall veta att vi arbetar mot rätt adress: 

Seek(fil,postnummer); 

Read(fil,vara); 

Seek(fil,postnummer); 

Write(fil,vara); 


13.7.5 Procedur som tar bort post. 

procedure TaBort(pnr:integer); 

begin 

Seek(fil,pnr); 

Read(fil,vara); 
if vara.tompost then begin 
vara.tompost := false; 

Seek(fil,pnr); 

Write(fil,vara); 

Writeln( 'Posten är borttagen!'); 

end 

else 

Writeln( 'Posten är redan tom!'); 

end; 

13.7.6 Procedur som skriver ut poster. 

Skriver ut posterna f o m första tom sista. 

procedure SkrivtltSekv( första: integer; sista: integer); 
var i: integer; 

begin 

for i:= första to sista do begin 
Seek(fil,i); 

Read(fil,vara); 
if vara.tompost then begin 
with vara do begin 

Writeln('Vara nr ',i); 

WritelnC 'Namn: ',namn); 

WritelnC'Pris: ',pris :4:2); 
end; 
end 
else 

Writeln('Vara nr ',i,' ej inskriven.'); 

end; 

end; 
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14 Arbeta med Turbo Pascal 


Detta kapitel beskriver hur det går till att skapa ett program med hjälp av 
Turbo Pascal. Kapitlet börjar med en introduktion och därefter kommer två 
avsnitt, ett som beskriver Turbo Pascal ver 4.0 och ett som beskriver ver 3.0. 
Vilket av kapitlena som du skall välja beror givetvis på om du ver 4.0 eller 
3.0. Om du har ver 3.0 kan vi lika bra vara ärliga och påpeka att en uppgrade- 
ring till ver 4.0 öppnar nya möjligheter och rekommenderas därför. Kapitlet av¬ 
slutas med en beskrivning över editorn. 

14.1 Introduktion. 

Vi skall här kort beskriva hur det i princip går till att programmera i Pascal 
med hjälp av Turbo Pascal. Från det att ett pascalprogram skrivs in i datorn 
tills det att datorn utför det som beskrivs i programmet händer följande: 

1. Ett källprogram skapas. 

2. Källprogrammet kompileras, vilket ger upphov till ett maskinprogram sk 
objektkod. 

3. Datorn exekverar programmet. 


1. Ett källprogram skapas. 

Källprogrammet skrivs i Pascal. För att skapa ett källprogram används en editor. 
En editor är ett typ av ordbehandlingsprogram, med vilken det är möjligt att 
skriva in text. på en sk arbetsfil. I vårt fall består texten av ett pascalprog¬ 
ram. När det gäller Turbo Pascal är en editor integrerad i kompilatorn, vilket 
innebär att du inte behöver en separat editor. Givetvis kan du skapa dina 
pascalprogram med hjälp av någon annan editor om denna sparar texten som ren 
textfil. Den text som editeras med Turbo Pascal editorn finns hela tiden i 
datorns minne. Detta innebär att storleken på texten du kan arbeta med är beg¬ 
ränsad. För de program som beskrivs i denna bok och många andra program kommer 
dock minnet att räcka till mer än väl. Editorn i Turbo Pascal tar text upp till 
64 kb och varje rad tar 249 tecken. Däremot läser inte kompilatorn längre än 
till kolumn 128. För att kunna skapa större program än 64 kb finns i ver 4.0 
möjligheter att skapa enheter, där varje enhet kan vara på max 64 kb. Dessa en¬ 
heter kan sedan kopplas samman, länkas ihop till ett större program, se kap 10. 

2. Källprogrammet kompileras. 

För att datorn skall kunna utföra det som beskrivs i ett källprogram måste 
källprogrammet översättas med hjälp av en kompilator till maskinkod, ett 
maskinprogram skapas. 0m kompilatorn upptäcker fel i källprogrammet måste dessa 
fel ändras med hjälp av editorn och därefter kan källprogrammet kompileras om. 
Kompilatorn upptäcker bara s k syntaxfel. Syntaxen för ett programspråk är de 
grammatiska regler som måste följas. Fel som strider mot detta kallas syntaxfel. 
Givetvis reagerar inte kompilatorn för logiska fel. Ett logiskt fel kan t ex 
vara att vi i programmet vill lägga ihop två tal och istället multiplicerar 
dessa. Att detta kan ställa till problem inser nog alla, men vår kompilator rea¬ 
gerar inte utan kompilerar snällt utan att meddela att vi har tänkt eller skri¬ 
vit fel. 

Kompilatorn i ver 4.0 är mycket snabb, den kompilerar cirka 27 000 rader per 
minut. 
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Turbo Pascal ver 4.0 innehåller två kompilatorer, den vi kommer att beskriva i 
detta kapitel är TURB0.EXE som är en integrerad kompilator, länkare och ordbe¬ 
handlare. Länkaren fogar samman flera maskinkodenheter och vi som använder Turbo 
Pascal behöver inte tänka så mycket på denna del. Det fina med TURB0.EXE är att 
vi kan skapa och köra våra pascalprogram utan att lämna den. När vi skapar och 
kör våra program sker detta med hjälp av en integrerad och överskådlig miljö med 
flera rullgardinsmiljöer (kommandotexterna dras upp och ner som rullgardiner) 
och kör vi fast är det bara att begära hjälptexter. 


Fi Le Edit Run CompiLe Options 



Den andra kompilatorn TPC.EXE fodrar att programmet som skall kompileras redan 
är skrivet med någon ordbehandlare t ex MicroStar, Cicero plus, EDLIN eller var¬ 
för inte den editor som finns i TURB0.EXE. Kompileringen sker därefter direkt 
från MS-DOS prompten. Om pascalprogrammet t ex heter TEST.PAS sker kompileringen 
med kommandot 

tpc test Tryck därefter på ENTER-tangenten. 

TPC.EXE kompilerar och länkar programmet TEST.PAS och som resultat fås filen 
TEST.EXE. För information angående TPC.EXE se manualen. 
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3. Datorn exekverar programmet. 

Exekvering av ett program innebär att datorn utför det som beskrivs i program¬ 
met. Att starta exekveringen kallas för att vi kör programmet. 

Obs! Vi kör programmet, datorn exekverar programmet. 

SAMMANFATTNING: 


EDITORN 

(Arbetsfil) ^_ 

(skapa källprogram) 

t 

KOMPILERA 

(översätter till maskinkod) 

t 

SYNTAXFEL _JA - 

t 

NEJ 

maskinkod?n ÄR SKAPAT 

t 

EXEKVERING. 


14.2 TURBO PASCAL ver 4.0, TURB0.EXE. 


Med hjälp av editorn skapas ett 
källprogram som kan lagras på 
diskett/hårddisk. Dessa källprog¬ 
ram får extension PAS av Turbo 
Pascal om inget annan extension 
anges vid lagringen. Om kompile¬ 
ringen sker till diskett/hårddisk 
erhåller den kompilerade filen 
extension EXE i ver 4.0. I Turbo 
Pascal ver 3.0 erhåller den kom¬ 
pilerade filen extension COM. 
Pascalprogram som kompileras till 
EXE-filer resp COM-filer kan 
köras direkt från operativsyste¬ 
met . 


Vi skall nu ge förslag på hur du kan arbeta med kompilatorn, TURB0.EXE och hur 
du kan använda editorn som finns i denna kompilator, för att skapa dina Pascalp¬ 
rogram. TURB0.EXE har en sk integrerad omgivning dvs ger möjlighet att ladda, 
editera, spara, kompilera och exekvera program utan att lämna TURB0.EXE. 


14.2.1 Start av systemet. 
Hårddisk. 


Om du har en dator med hårdisk rekommenderar vi dig att skapa en underkatalog 
för Turbo Pascalen och kopiera ner alla Turbo Pascal disketter i denna katalog. 
Antag, att du döper din katalog till TURB04 och att din hårdisk har adressen C: 
samt att katalogen skall ligga direkt under roten. Katalogen skapas med följande 
kommandon. 


Gör enheten c till huvudenhet. 

Efter varje kommandon trycker du på ENTER-tangenten. 
Här befinner du dig på rotnivå. Mellanslag mellan cd 
och c:\ 


mkdir turbo4 


Med kommandot mkdir (make directory) skapas en katalog 
med det namn som anges efter mkdir. 


När underkatalogen är skapad kan Turbo Pascal kopieras till katalogen TURB04. 
Sätt Turbo Pascaldisketten i skivenhet A: och skriv följade efter C:\> 

C:\>copy a:*.* c:\TURB04 | Obs! C:\> kan variera i utseende. 
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Fördelen med att kopiera alla disketterna till hårddisken är att då kommer alla 
filer som tillhör Turbo Pascal att finnas tillgänglig för kompilatorn. Att arbe¬ 
ta med flexskiveenheten kan innebära att du måste skifta mellan de olika disket¬ 
terna. Ibland måste du kopiera vissa filer som skall tillhöra ditt program till 
programdisketten. Att starta Turbo Pascal från hårdisken kan ske på lite olika 
sätt. Vi kommer här att visa ett av dessa. 

För att din dator skall kunna starta upp filen TURB0.EXE måste den veta var 
filen finns. Datorn letar alltid först efter filen i det aktuella katalogen om 
inget annat är angivet. Därför ser vi till att vi befinner oss i katalogen 
TURB04. Vi utgår från roten, kommandona c: och cd c:\ garanterar att vi befinner 
oss där. Förflyttning till katalogen TURB04 sker med 

C:\>cd TURB04 | Gör katalogen TURB04 till aktuell katalog. 

Du startar Turbo Pascal dvs filen TURB0.EXE med kommandot turbo. 

C:\TURB04>turbo I Efter en liten stund har du huvudmenyn framför dig. 


Flexskiveenhet. 

Vi beskriver här hur uppstart sker med en dator med enbart flexskiveenhet. 

1. Starta datorn. 

2. Sätt i systemskivan. 

Nu kommer snart A> upp på skärmen. Kan variera i utseende. 

3. Sätt i den skiva som innehåller filen TURB0.EXE. 

Disketten är märkt TURBO PASCAL 4.0 COMPILER. 

4. Skriv turbo efter A> och tryck på ENTER-tangenten. 

A>turbo 

5. Efter en liten stund har du huvudmenyn framför dig. 

Om du arbetar från diskett är det viktigt att de filer som du använder verkligen 
finns på disketten. På disketten märkt Compiler finns filerna TURB0.EXE, kompi¬ 
latorn och TURBO.T PL. som innehåller grundbiblioteket, Turbo Pascal Library. 
Dessa filer är ett måste för att kunna skapa och köra programmen i denna bok. 
För dig som arbetar med kapitel 3 SKÄRMHANTERING OCH GRAFIK måste BGI- och CHR- 
filerna från disketten märkt Graphics/Microcalc finnas tillgängliga. BGI-filerna 
innehåller drivrutiner för de olika grafikkorten. Vilken du skall ha till din 
dator, beroro på vilket grafikkort du har. CHR-filerna innehåller de olika fon- 
terna. Om du temporärt skall lämna Turbo Pascal måste även filen COMMAND.COM 
finnas på disketten. COMMAND.COM finns på din DOS-diskett. 

Kopiering mellan disketter. 

För att flytta filer mellan disketter används kommandot, copy. Antag att du vill 
kopiera filen CGA.BGI från den diskett i driver A: som innehåller filen CGA.BGI 
till disketten i driver B: och där spara filen under samma namn. Detta sker då 
med kommandot 


A:>copy A:cga.bgi B:cga.bgi 


och tryck därefter på ENTER-tangenten. 




Kommandot ovan kan läsas "Kopiera filen CGA.BGI från disketten i driver A: till 
driver B: och lägg den där med namnet CGA.BGI.". 

Om du bara har en skivenhet med adressen A: skriver du samma sak. Sätt disketten 
med filen CGA.BGI i A: och tryck på ENTER-tangenten, efter ett tag får du då 
uppmaningen 

Insert diskette for drive B: and strike 
any key when ready 

Sätt då i den diskett som du vill flytta filen till i A: och tryck på ENTER- 
tangenten. 

Huvudmenyn. 


Col 1 Insert Indent A:NONAME.PAS 


Turbo 

Pascal 

Versic 

>n 4.0 

Copyright 

c) 1987 by 

Borland Inter 

ational, Inc. 


Fl-Help F2-Save F3-Load F5-Zoom F6-Edit F9-Make FIO-Main ir 


Huvudmenyn (Main menu) består av 5 delar, File, Edit, Run, Compile och 
Options. Vidare finns det två fönster Edit och Output och på nedersta raden 
finns information angående funktionstangenter. 


14.2.2 Exempel för dig som använde TURBO PASCAL för första gången. 

Skapa källprogram. 

Vi skall nu beskriva hur det går till att skapa och köra ett program under Turbo 
Pascal. Den fortsatta beskrivningen utgår från att vi startat Turbo Pascal från 
diskett, dvs A:>. Om du däremot arbetar från hårddisk är den enda skillnaden att 
A:> blir C:> eller kanske D:>. Detta varierar beroende på hur din dator är kon- 
figurerad. 

Vi förutsätter att du har huvudmenyn framför dig. Pascalprogrammet skrivs in i 
fönstret Edit. Vid uppstart befinner sig en markör i huvudmenyn på ordet File. 
För att förflytta dig till fönstret Edit, tryck på bokstaven E eller flytta mar¬ 
kören med hjälp av piltangenterna till Edit i huvudmenyn och tryck därefter på 
ENTER-tangenten. I fönstret Edit kan du nu skriva in ditt pascalprogram dvs 
skapa ett källprogram. Skriv in programmet nedan precis som om du skriver på en 
skrivmaskin. För editorn gäller speciella kommandon som beskrivs i delen EDITORN 
avsnitt 14.3. 


218 




Fi Le Edit Run Compile Options 


Line 4 CoL 7 

Insert Indent A:NONAME.PAS 

program Nrl; 


beg in 


Writelnl 1 Oetta är e 

t enkelt Pascalprogram.'); 

end. 



Output 

A:\ >turbo 



FI-HeLp F2-Save F3-Load F5-Zoom F6-0utput F9-Make FIO-Main menu 


När du skrivit in programmet i fönstret Edit lämnar du editorn genom att trycka 
på FlO-tangenten. Då förflyttar sig markören till huvudmenyn. 

Kompilera en arbetsfil. 

Innan datorn^kan exekvera programmet Nrl, måste det översättas till en kod som 
datorn förstår, maskinkod. Programmet skall kompileras. Detta gör vi på följande 


1. Förflytta dig till huvudmenyn med FlO-tangenten. 

2. Förflytta dig i huvudmenyn till Compile. Tryck på ENTER-tangenten. Ett 
nytt fönster visas nu. Välj Compile i detta fönster och tryck på ENTER- 
tangenten . 


File Edit Run Compile Options 


Line 4 Col 7 Inse 

program Nrl; 
beg in 

WritelnC'Detta är ett enk 
end. 

Compile 

Make 

Build 

Destination Memory 

Find error 

Primary fi le: 

Get info 




A:\ >turbo 


Fl-Help F2-Save F3-Load F5 

Zoom F6-Edit F9-Make FIO-Main menu 
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3. Om det inte finns något fel i programmet visas ett nytt fönster, som 

talar om att kompileringen är klar. Om du däremot har fel i ditt program 
så presenteras ett felmeddelande på skärmen och markören befinner sig på 
den plats i texten som är felaktig. Rätta felet! Börja om från punkt 1. 


4. När kompileringen är klar skrivs på skärmen: Success : Press any key. 
Tryck då på en valfri tangent, så kommer du tillbaka till föregående 
fönster. Om du därefter trycker på Esc-tangenten förflyttas du till 
huvudmenyn. 


Run Compi Is 


riteln('Detta är e 


Make 

Build 

Destination Memory 


Main fi Le: NONAME.PAS fl- 

Compiling: EDITOR NONAME.PAS fl 


Available memory: 350K 


Fl-Help F2-Save F3-Load F5-Zoom F6-Edit F9-Make FlO-Main 


Kompileringsfel. 

Exempel på hur det kan se ut då kompileringsfel uppstår. 


File Edit Run CompiLe Options 


Error 10: Unexpected end of file 
program Nrl; 
beg in 

Writelnl’Detta är ett enkelt 
end 

Pascalprogram. 1 ); 



A: \ >turbo 


Fl-Help F2-Save F3-Load F5-Zoom F6-Output F9-Make FlO-Main menu 


Punkten saknas efter end. Du skriver dit punkten och kompilerar om programmet. 
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Exekvera. 


Datorn exekverar programmet som finns i Edit, dvs utför det som programmet 
beskriver, om du i huvudmenyn väljer kommandot Run. Om du inte befinner dig i 
huvudmenyn förflyttar du dig dit med Fl O-tangenten. Programmet Nrl ger följande 
på skärmen: 

A:\ >turbo 

Detta är ett enkelt Pascalprogram. 


Press any key to return to Turbo Pascal 

Texten "Detta är ett enkelt Pascalprogram." kommer från programmet Nrl. Texten 
"Press any key to return to Turbo Pascal" kommer från Turbo Pascal och ger in¬ 
formationen att du återgår till huvudmenyn i Turbo Pascal om du trycker på någon 
tangent på tangentbordet. A:\ >turbo är det kommando som ligger kvar från det 
att vi startade upp Turbo Pascal, från diskett. 

Spara program. 

För att inte gå miste om pascalprogrammet när vi stänger av datorn är det lämp¬ 
ligt att spara programmet antingen på en diskett eller på hårddisken. Om du vill 
spara programmet Nrl trycker du på F2-tangenten eller väljer File i huvudmenyn 
och därefter Save. 



File Edit 

Run Compile Options 

pro 

Load |Col 7 Insert Indent A:NONAME.PAS 

P|- Rename NONAME -, 

N NONAME.PAS 


Directory 
Change dir 
OS Shell 





A: \ >turbo 

Detta är ett enkelt Pascalprogram. 


F1-Help Esc-Abort 


Man har här möjlighet att döpa om den nya filen. Om man inte ändrar något kommer 
filen att sparas på disketten i skivenhet A: under namnet NONAME.PAS. 

Om filen döps om bör du tänka på att ett filnamn får bestå av högst 8 tecken 
(första tecknet skall vara en bokstav), därefter ev punkt och högst 3 ytterliga¬ 
re tecken (filtyp). Om ingen filtyp anges får filen automatiskt extension PAS. 

Om du vill spara programmet i ett speciell katalog på hårddisken skriver du 
C:\katalognamn\filensnamn . 
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14.2.3 Integrerade miljön. 

Vi skall nu behandla den integerade miljö som lurbo Pascal utgör. När vi arbetar 
med Turbo Pascal arbetar vi från huvudbilden. Den består av fyra delar: huvudme¬ 
nyn, fönstret Edit, fönstret Output och den nedre kommandoraden som ger informa¬ 
tion om snabbtangenter för vissa kommandon. Bakom en del av kommandona i huvud¬ 
menyn döljer sig en ny meny. T ex finns under kommandot File följande meny. 

File Edit Run CompiLe Options 


pro 

Load 

Pick 

Save 

Directory 
Change di r 
OS Shell 
Quit 

. ..... Edit --- ■ .. 

Col 7 Insert Indent A:NONAME.PAS 

a är ett enkelt Pascalprogram.'); 




A: \ 

>turbo 


Detta är ett enkelt Pascalprogram. 


Fl-Help F2-Save F3-Load F5-Zoom F6-Edit F9-Make FIO-Main menu 


Oavsett var du befinner dig i Turbo Pascal. 

F10 förflyttar dig till huvudmenyn. 

Fl ger dig information om den plats du befinner dig i. Vill du ta bort 
hjälptexten trycker du på ESC-tangenten. 

Alt plus den första bokstaven i något av kommandona i huvudmenyn utför det 
som finns bakom varje bokstav. Exempelvis ger Alt-0 menyn, dvs du hål¬ 
ler nere tangenten Alt och trycker därefter på O-tangenten. 


File Edit Run CompiLe Options 


Line 4 Col 7 Insert Indent 

program Nrl; 
beg in 

WritelnC'Detta är ett enkelt Pascalpr 
end. 

Compiler 

Environment 
Directories 
Parameters 
Load options 
Save options 


A: \ >turbo 

Detta är ett enkelt Pascalprogram. 


Fl-Help F2-Save F3-Load F5-Zoom F6-Edit F9-Make FIO-Main menu 
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Från huvudmenyn. 


Med piltangenterna kan du förflytta dig i huvudmenyn. Om du trycker på någon 
av bokstäverna F,E,R,C eller 0 utförs respektive kommando direkt oavsett var 
du befinner dig i huvudmenyn. 

Med Esc lämnar du en meny. Om inget fönster i huvudmenyn är aktiverat lämnar 
du huvudmenyn om du trycker på Esc. 

- Med F6 kommer du till det sist aktiverade fönstret, Edit eller Output. 


Om du befinner dig i fönstret Edit eller Output . 

F5 zoomar/zoomar ej aktuellt fönster. 

F6 byter fönster. 

lexten under fönstret Output. 

När du befinner dig i editorn står det följande längst ned på skärmen: 

Fl-Help F2-Save F3-Load F5-Zoom F6-Edit F9-Make FIO-Main menu 

Detta betyder att du kan spara ditt program i editorn utan att gå via huvud¬ 
menyn om du trycker på F2-tangenten. Det finns också kommandon som är kombi¬ 
nerade tillsammans med Alt-tangenten. Håll nere Alt-tangenten (ungefär två 
sekunder) så presenteras de längst ned på skärmen. De kommandon som skall 
kombineras med CTRL-tangenten presenteras om du håller nere CTRL-tangenteri. 
Obs! Vilka tangentkombinationer som visas beror på var du befinner dig. 


Funktionstangenten, Fl. 

Med hjälp av funktionstangenten Fl kan du få hjälp i form av att ett informa- 
tionsfönster med text visas på skärmen. Den enda gången du inte kan använda Fl 
är när ett program exekveras. Antag att markören står på File i huvudmenyn. Då 
ger ett tryck på Fl-tangenten följande hjälptext. 


File Edit Run Compile Options 


Line 1 Col 1 

Insert Indent 

AtNONAME.PAS 


The Fi 

le pull-down menu 

offers various 


choice 

s for loading existing files, creating 


new fi 

les, and saving fi 

les. When you load 


a file 

, it is automat i ca 

lly placed in the 


editor 

. When you're done 

with a fi le, you can 


save 

t to any directory 

or file name. Select 


an ne 

m that you want to 

know more about: 


Load 

Pick 

New 


Save 

Write to 

Directory 

A:\ >turbo 





Change dir OS shell 

Quit 


Fl-Help index -Pick topic <—i-Go to topic Esc-Exit Help 


223 





I en del hjälptexter finns det möjlighet att att få fram mera information. I 
hjälptexten som presenteras för kommandot File finns det möjlighet att få mer 
information angående Load, Pick, New, Save, Write to, Directory, Change dir, 
OS shell och Quit. Hjälptexten tar du bort genom att trycka på ESC-tangenten. 


Om du trycker på funktionstangenten Fl två gånger får du ett fönster som inne¬ 
håller ett hjälpindex. Du kan sedan vandra i denna hjälpmeny med tangentpilarna 
eller PgDn/PgUp och slutligen markera ditt val genom att trycka på ENTER-tangen- 
ten. Help on Help ger dig information om hur du kan använda hjälpindex. 


program Nrl; 
beg in 

WritelnC'D r 


Build i tem 
Change dir i tem 
Character set 
CompiLe command 
CompiLe i tem 
Compiler menu 
ConditionaL def 


Current pick fi Le i 
■ toggLe Debug info toggLe 
toggLe Destination item 
Directories item 
em Directory item 


Edit auto save 
Edit command 
Editing commands 
Edit window 
Environment menu 
Error messages 
ExecutabLe dir opt 


Om du vill återvända till det senaste använda informationsfönstret, trycker du 
på Alt-FI. Med hjälp av Alt-FI kan du backa tillbaka stegvis till de senast 20 
använda informationsfönsterna. Fönstret försvinner om du trycker på ESC-tangen- 
ten. Om informationsfönstret tas bort med ESC-tangenten kommer du tillbaka till 
detta fönster genom att trycka på Alt-FI. 


Ger besked om vissa funktioner och procedurer i Turbo Pascal. CTRL-F1 kan endast 
användas i fönstret Edit. Antag, att vi vill ha information angående Writeln i 
programmet Nrl. Ställ markören under W i Writeln och håll nere CTRL-tangenten 
och tryck därefter på Fl-tangenten. Följande informationstext visas då. 
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topic Esc-Exit Help 





Huvudmenyn. 


Huvudmenyn består av fem kommandon File, Edit, Run, Compile och Options. Under 
File, Compile och Options finns det andra valmöjligheter i form av nya fönster. 
Under Edit och Run döljer sig inga nya fönster. Vi skall här se på vad som döl¬ 
jer sig bakom de fem kommandona i huvudmenyn. 



Load Laddar fil i editorn. Om det redan finns en fil i editorn som inte är 

sparad kommer en fråga om filen skall sparas innan en ny fil läggs i 
editorn. Vill du ladda in en speciell fil, anger du filens namn. Det 
går också att ange i vilken katalog och skivenhet som filen ligger 
på. Om ingen enhet eller katalog anges kommer Turbo Pascal att leta 
efter filen i den enhet och katalog, som är angiven i Change dir. På 
frågan om vilken fil som skall laddas går det också att svara *.*. Då 
kommer alla filer som ligger i aktuell katalog att visas. Förflytta 
dig då till den fil som skall laddas in med hjälp av piltangenterna 
och verifiera valet genom att trycka på ENTER-tangenten. Pascalfiler 
sökes med *.pas. 

Pick Används för att snabbt ladda in någon av de åtta senaste filerna som 

behandlats i editorn. Markören kommer att placeras där du senast edi- 
terade filen. Om du väljer -load file- motsvaras detta av att du 
istället valt File och därefter Load (F3). Alt-F3 ger direkt 
— load file —. 

New Tömmer editorn. Om det redan finns en fil i editorn raderas denna. 

Givetvis får du frågan om den skall sparas om den inte redan är spa¬ 
rad. Därefter töms editorn och du kan börja att skriva in ett nytt 
program. 

Save Sparar texten i editorn som en fil. Motsvaras av att du trycker på 

F2-tangenten. Med denna tangent kan du spara texten i editorn oavsett 
var du befinner dig i systemet. Tänk på att det är bara första gången 
du sparar texten som du får möjlighet att ändra från namnet 
NONAME.PAS till något annat namn. Om du gör ändringar på en redan 
sparad text eller inläst fil kommer den gamla versionen att 
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skrivas över. Om däremot direktivet Backup source files i menyn Op¬ 
tions är ställd som On, görs automatiskt en backup av det gamla orgi- 
nalet men med extension BAK. Se Options. 

Write to Ger möjlighet att lagra filen i editorn under ett annat namn. Används 
i stället för Save om du vill ändra namnet på filen i editorn dvs du 
vill ha en kopia av filen under ett annat namn. Om du väljer ett namn 
på filen som redan finns kommer du att få frågan om du vill skriva 
över denna fil. 

Directory Ger dig möjlighet att undersöka vad som finns i andra kataloger/enhe- 
ter. 

Change dir Ger dig möjlighet att ändra aktuell katalog/enhet. 

OS shell Lämnar temporärt Turbo Pascal (Turbo Pascal ligger resident i minnet) 
och återgår till DOS-prompten, t ex A:\>. Du kommer sedan tillbaka 
till Turbo Pascal genom att skriva EXIT. 

Quit Lämnar Turbo Pascal och går tillbaka till DOS-prompten. Motsvaras av 

Alt-X som kan användas överallt i systemet. 


Edit. 

Genom att välja Edit hamnar markören i fönstret Edit, dvs fönstret aktiveras. 
Det är här som filer skapas och förändras. 

Run. 

Kompilerar, länkar och exekverar program. 


Compile. 


File Edit Run Compile Options 


Line 3 Col 5 Inse 

program Nrl; 
beg in 

WritelnC Detta är ett enk 
end. 

Compile 

Make 

Build 

Destination Memory 

Find error 

Primary fi le: 

Get info 





A:\ >turbo 

Detta är ett enkelt Pascalprogram. 


Fl-Help F2-Save F3-Load F5- 

Zoom F6-Edit F9-Make FIO-Mair 

menu 


Compile Den sist inladdade eller skapade filen i Edit kompileras. 

Make Om en fil är angiven som primary file kompileras denna, annars 

kompileras den fil som finns i editorn. Turbo Pascal kontrollerar 
om den kompilerade filen är beroende av någon eller några andra 
filer. Om en enhets interfacedel har ändrats kompileras alla filer 
om som använder den ändrade enheten. 
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Build. 


Destination 

Find error 

Primary File 

Get info 

Options. 


Compiler 


Detta kommando skiljer sig från Make på så sätt att alla filer som 
är kopplade till den kompilerade filen kompileras om. 

Här anges om den kompilerade filen skall kompileras till intern- 
minnet eller till diskett som en exekverbar fil. Memory resp Disk 
ändras med ENTER-tangenten. Enheter som kompileras om vid använ¬ 
dande av Make eller Build kompileras till disket även om destina- 
tionen är internminnet. 

Här anges adressen i minnet, där fel uppstår vid exekvering av ett 
program. 

falar om vilken fil som skall kompileras. Används tillsammans med 
Make och Build. 

Ger information angående den PAS-fil som du arbetar med. 


File Edit Run Compile Options 


-----■■ ■■ ■-= Edit 

Line 3 Col 5 Insert Indent 

program Nrl; 

Writelnl'Detta är ett enkelt Pascalpr 
end. 

Compiler 

Environment 
Directories 
Parameters 
Load options 
Save options 


A: \ >turbo 

Detta är ett enkelt PascaIprogram. 


Fl-Help F2-Save F3-Load F5-Zoom F6-Edit F9-Make FIO-Main menu 


File Edit Run Compile Options 


Line 3 Col 5 Insert Indent | Compiler 






beg in 


Range checking 

On 

Writelnl'Detta ä 

r ett enkelt Pas 

Stack checking 

On 

end. 


I/O checking 

On 



Debug information 

On 



Turbo pascal map file 

Off 



Force far calls 

Off 



Var-string checking 

Strict 



Boolean evaluation 

Short Circuit 



Numeric Processing 

Software 



Link buffer 

Conditional defines 
Memory sizes 

Memory 


A:\ >turbo 

Detta är ett enkelt PascaIprogram. 


Fl-Help F2-Save F3-Load F5-Zoom F6-Edit F9-Make FIO-Main menu 
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I denna meny kan kompileringsdirektiv ställas, men givetvis går dessa även att 
ställa direkt i programkoden. I stället för att t ex ange Range checking Off kan 
detta ställas i programkoden med kommando {$R-}. Kompileringsdirektiven i menyn 
ändras genom att man ställer markören på det direktiv som skall ändras och 
därefter trycker på ENTER-tangenten. Direktivet ställs tillbaka på samma sätt. 
Mer information angående de olika direktiven kan du få om du placerar markören 
på det direktiv du vill specialstudera och därefter trycker på El-tangenten. 

Environment. 

File Edit Run CompiLe Options 

Compiler 
Environment | 


Backup source files On 
Edit auto save Off 

Config auto save Off 
Retain saved screen On 
Tab size 8 

Zoom Windows Off 


—-- Output 

A:\ >turbo 

Detta är ett enkelt Pascalprogram. 


Fl-Help F2-Save F3-Load F5-Zoom F6-Edit F9-Make FIO-Main menu 


Backup source files. 

Om du läser in en fil i editorn, ändrar i denna och därefter sparar den medkom- 
mandot Save eller F2 kommer det gamla orginalet att raderas. Men med Backup 
source files i läget On görs automatiskt en backup av det gamla orginalet som 
får extension BAK. 

Edit auto save. 

Med Edit auto save i läget Off sparas automatiskt den ändrade filen i editorn om 
kommandot Run eller OS shell anropas. Beträffande information angående övriga 
kommandon, använd Fl-tangenten. 

Directories. 


Line 3 Col 5 Insert Indent 
program Nrl; 
beg in 

Writelnl'Detta är ett enkelt Pascalpr 


File Edit Run Compile Options 


Line 3 Col 

program Nrl; 
beg in 

WritelnC'Detta är 
end. 

. Edit 

Insert Indent 

Compiler 

Environment 
Directories 


Turbo directory: 

Executable directory: 

Include directories: 

Unit directories: 

Object directories: 

Pick fi le name: 

Current pick fi le: 



A:\ >turbo 

Detta är ett enkelt Pascalprogram. 


Fl-Help F2-Save F3-Load F5-Zoom F6-Edit F9-Make FIO-Main menu 








Här kan olika kataloger specificeras. 

Include directories. 

I stället för att i programmet ange var includefiler finns {$I FILNAMN} kan 
dessa läggas i en speciell katalog som sedan anges här. Detta medför att kompi¬ 
latorn exakt vet var en includefil finns. Angående includefiler se avsnitt 9.3. 

Unit directories. 

På samma sätt som för includefiler kan enheter läggas i en speciell katalog. Mer 
om enheter se kapitel 10. 


14.3 EDITORN. 


I denna del beskrivs de kommandon som gäller för den editor som finns integrerad 
i Turbo Pascal. För att få ett grepp om de finesser och möjligheter som denna 
editor kan erbjuda rekommenderar vi dig att arbeta med de övningsuppgifter som 
behandlar editorn, övningsuppgifter till kap 14. Att känna till de möjligheter i 
form av kopiering av texter både inom editorn och mellan filer och editorn kan 
spara mycket arbete. En sådan enkel sak som att hitta ett visst ord i ett 
pascalprogram sköts automatiskt. Om vi t ex upptäcker att vi vill byta namnet på 
en variabel från kanske tall till summa kan detta också ske automatiskt. 


I Edit finns följande text: 

Line 1 Col 1 Insert Indent CrNONAME.PAS 

Line Col Visar vilken rad respektive vilken kolumn markören befinner sig 


Insert Betyder att varje tecken som skrivs, kommer att skjutas in på den 

plats där markören står. 

CTRL-V ändrar mellan skjut in/skriv över eller Insert (Ins). 

Indent Betyder att varje ny rad som skrivs, kommer att få samma 

vänstermarginal som föregående rad. CTRL-O-I ändrar funktionen 
av/på. 


CrNONAME.PAS Bokstaven före kolon (:) betyder att programmet kommer att sparas 
på den enheten. Namnet efter kolon, är det namn som programmet 
kommer att sparas under. NONAME.PAS går givetvis att ändra. 


T ab 


CTRL-O-T eller CTRL-Q-T 


14.3.1 Textredigering i arbetsfilen. 

Edit är ett ordbehandlingsprogram, som behövs för att skriva och ändra text. Den 
text som editeras finns hela tiden i datorns minne. Glöm därför inte att spara 
texten när du har arbetat ett tag, så att du inte förlorar ditt arbete om man t 
ex får strömavbrott. Det finns olika typer av editorer. Den som tillhör Turbo 
Pascal är en s k fullskärmseditor. De kommandon som används ges med CTRL-tangen- 
ten nedtryckt tillsammans med någon eller några andra tangenter. I texten som 
följer kommer vi att markera kommandona på följande sätt: 

CTRL-S 
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Vilket betyder: Tryck ned tangenten märkt CTRL och därefter S-tangenten, släpp 
upp båda tangenterna. 

CTRL-K-D 

Vilket betyder: Håll nere tangenten märkt CTRL och tryck på tangenten märkt K. 
Släpp därefter upp CTRL-tangenten och tryck på D-tangenten. 

För IBM-kompatibla datorer finns redan vissa tangenter fördeklarerade, exempel¬ 
vis piltangenterna för förflyttning i texten. 

På Turbo-Pascalskivan ligger ett program TINST.EXE ver 4.0 och TINST.COM ver 3.0 
som ger möjlighet åt användaren att själv definiera kommandon under tangenter på 
tangentbordet. Programmet är i stort sett självinstruerande och beskrivs i hand¬ 
boken för Pascal-systemet. 

14.3.2 Schema över en del editeringskommandon. 

(CTRL kombinerat med bokstavstang.). 


rulla 

rad 

skärm 

radera ord 

radera 

W 

E 

R 

T 

Y 

ned 

upp 

upp 

till höger 

rad 

ord 

bokstav 

bokstav 

ord radera 


A 

S 

D 

F G 


vänster 

vänster 

höger 

höger tecken 


rulla 

rad 

skärm 

inskjutning 


Z 

X 

C 

V 


upp 

ner 

ned 

på/av 



Samtliga kommandon för editorn hittar du på sidan 233. 


14.3.3 Förflyttning bland text. 

Vi skall se lite närmare på de olika kommandona för editorn. Antag, att vi skri¬ 
vit in följande text med hjälp av editorn och fortfarande befinner oss i edi¬ 
torn. 


Hej! 

Med hjälp av denna text skall vi träna på editeringskommandon. 
LYCKA TILL! 


Antag,att markören är placerad under t i text: 

Hej! 

Med hjälp av denna t_ext skall vi träna på editeringskommandon. 

LYCKA TILL! 

CTRL-Pil vänster markören flyttas till d i ordet denna, dvs ett ord 

eller till vänster. 

CTRL-A 

Pil vänster markören flyttas ett steg till vänster. 

eller 

CTRL-S 
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markören flyttas till e i ordet text, dvs ett steg 
till höger. 


CTRL-Pil höger markören flyttas till s i ordet skall, dvs ett ord 

eller till höger. 

CTRL-F 

Tangenterna ovan förflyttar markören bland texten i editorn utan att förändra 
den. 

ENTER-tangenten. 

Tänk på att aldrig använda ENTER-tangenten då du skall förflytta dig bland text. 
ENTER-tangenten tar nämligen med den text som finns till höger om markören. 
Antag att vi har följande text i editorn 

Detta är ett exem£el på vad som kan hända! 

Lägg märke till att markören befinner sig under p i exempel. Om vi i detta läge 
trycker på ENTER-tangenten händer följande 

Detta är ett exem 

pel på vad som kan hända! 

Ett sätt att återställa denna text till sitt ursprung, är att förflytta markören 
så att den hamnar efter m i exem, och därefter trycka på Delete-tangenten 
eller CTRL-G en gång. 

14.3.4 Radera tecken, ord och rad. 

Det som kanske är ovant första gången du arbetar med en ordbehandlare är möjlig¬ 
heten att radera text. Radering av bokstäver och text kan ske på lite olika 
sätt. Det som är viktigt att tänka på är att hålla reda på var markören befinner 
sig innan du trycker på något av raderingskommandona. 

Antag,att markören är placerad under t i text: 

Hej! 

Med hjälp av denna text skall vi träna på editeringskommandon. 

LYCKA TILL! 

Del raderar t i text och flyttar samtidigt texten efter t ett steg åt 

eller vänster. 

CTRL-G 

CTRL-T raderar ordet text och flyttar resten av texten på denna rad åt 

vänster (fyller upp tomrummet efter ordet text). 

CTRL-Y raderar all text på denna rad och flyttar samtidigt upp raden (ra¬ 

derna) under ett steg. Var alltså försiktig när du trycker på CTRL-Y 
hela den rad som markören står på raderas. 

Backspace Raderar tecknet till vänster om markören och flyttar resten av tex- 

eller ten på denna rad åt vänster 

CTRL-H 


Pil höger 

eller 

CTRL-D 
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Det som är viktigt är att hela tiden ha kontroll på var markören står vid använ¬ 
dandet av editeringskommandona. 

14.3.5 Inskjutning på/av, Ins eller CTRL-V. 

Längst upp till höger på skärmen står det Skjut in. Skjut in innebär att det går 
att skjuta in text. Om rubriken Skjut in saknas betyder detta att texten kommer 
att skrivas över. 

14.3.6 Avbryta kommando. 

Du kan avbryta alla kommandon med CIRL-U. 

14.3.7 Flytta om text. 

Det som kanske är nytt för dig när du arbetar med editorn är nog möjligheten att 
flytta om text, byta ut text, söka upp ord, läsa in text från en yttre fil och 
lägga in viss text på en yttre fil. Vi skall se på var och en av dessa möjlighe¬ 
ter. 

Om du vill flytta eller kopiera enstaka ord eller hela textavsnitt är detta möj¬ 
ligt med hjälp av speciella kommandon. Det du först måste göra är att märka det 
ord eller det textavsnitt du vill flytta eller kopiera. 

14.3.8 Märkning av enstaka ord. 

Enstaka ord märker du med CTRL-K-T. Då skall markören stå på den första boksta¬ 
ven i ordet. Märkningen tas bort med CTRL-K-H. 

14.3.9 Märkning av textblock. 

Skall du däremot flytta eller kopiera hela textblock måste du markera början och 
slutet på blocket. 

Markören placeras i början av textblocket och märks med F7 eller CTRL-K-B. 

Flytta därefter markören till slutet av textblocket och märk detta med F8 eller 
CTRL-K-K . Ett block markeras på skärmen genom att blocket har låg intensitet, 
avvikande färg eller inverterad text, beroende på vilken skärm du har. 

14.3.10 Flytta eller kopiera enstaka ord eller block. 

Efter märkningen av ordet eller textblocket är det bara att flytta markören till 
den plats du vill ha ordet eller textblocket placerat. 

Nu har du två möjligheter: 

1. Flytta hela blocket (ordet): CTRL-K-V. 

2. Kopiera hela blocket (ordet): CTRL-K-C. 


14.3.11 Radera block. 

Märk det block du vill radera. 

Du raderar med: CTRL-K-Y. 

14.3.12 la bort märkning av ord/block. 

CTRL-K-H 
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14.3.13 Söka/byta ut text. 

Sökning kan ske på ord upp till 30 tecken. Sökning sker normalt från den plats 
som markören har innan sökning åberopas. Vidare sker sökning framåt i texten. 
Sökning/sök-byt ut kan preciseras med följande kommandon då datorn ställer frå¬ 
gan, Options: 

B Sök baklänges i texten. 

G Sök från början av texten, (globalt). 

x Ange ett valfritt tal. Du skall inte ange x utan ett tal t ex 3. 

Sökning: Om du anger 5 kommer sökning ske efter förekomsten av 5:te 

söksträngen. 

Sök-byt ut: Byter ut x ggr. 

N Används endast vid sök-byt ut. Byter utan att fråga. 

U Ignorerar små/stora bokstäver. 

W Söker bara efter hela ord. 


Exempel. 

Villkor:GUW Ger automatiskt sökning över hela filen på hela ord och 

valfritt stora-små tecken. 

14.3.14 Söka upp ord. 

Tryck på: CTRL-Q-F 
Datorn frågar då: 

Find: <Skriv det sökta ordet.> 

Options: <Villkor: F för fram, B för bak eller G för hela programmet osv> 

Du kan fortsätta att söka med CTRL-L. 


14.3.15 Byta ut text. 

Om du vill byta ut ett ord och du vill att datorn skall söka upp ordet åt dig 
tryck på: 


CTRL-Q-A. 


Uppe i vänstra hörnet står det nu: 


det sökta ordet och tryck på ENTER-tangenten> 


Replace with: <Byta ut mot: Skriv det nya ordet och tryck på ENTER-tangenten> 

Options: <Villkor: Skall sökningen ske framåt skriv F, skall sökningen 

ske bakåt skriv B eller skall sökningen ske i hela programmet 
skriv G.> 


Datorn söker nu upp ordet och frågar: 
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Replace (Y/N): <Byt ut: Om det är rätt ord skriv Y och bytet sker. I annat fall 
skriv N och sedan kan du fortsätta att söka genom att trycka på 
CTRL-L> 

14-3.16 Läsa in text från en yttre fil. 

Detta kommando skall du använda om du vill hämta in text från någon fil på din 
flexskiva. 

Obs! Texten hamnar där markören står. Glöm ej att kontrollera detta. 

Tryck på: CTRL-K-R (R för Read) 

Datorn skriver då: 

Read Block From File: <Ange namn och tryck på ENTER-tangenten> 

Med Esc-tangenten återgår du till editering utan att läsa in någon text. 


14.3.17 Lägga in märkt text på en yttre fil. 

Märk den text (block) du vill kopiera till en yttre fil. 

Tryck på: CTRL-K-W (W för Write) 

Datorn skriver då : 

Write Block To File: <Ange namn och tryck på ENTER-tangenten> 

Med Esc-tangenten återgår du till editering utan att skriva texten till en 
fil. 

14.3.18 Utskrift med printer. 

CTRL-K-P. 

Kommandot CTRL-K-P medför att märkt block i editorn skrivs ut på skrivaren. Om 
inget block är märkt skrivs hela texten i editorn ut. 

När utskrift åberopas, skrivs Printing längst upp i editorns fönster. Om ingen 
printer är ansluten visas efter ett tag texten 

Critical Error 

Error accessing PRN device. Retry or Abort? 

Tryck på R-tangenten för nytt försök eller A-tangenten för avbryt. 

Utskrift med type. 

Utskrift kan ske om du först lämnar Turbo Pascal (Quit eller OS shell). Du får 
då upp prompten t ex A> på skärmen. Skriv därefter den fil som du vill ha ut¬ 
skriven. Antag, att vi vill skriva ut filen test.pas. 

A>type test.pas 

Tryck därefter på CTRL-P och slutligen på ENTER-tangenten. 
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14.3.19 Editeringskommandon: 

Vi har delat upp kommandona under fyra rubriker: Cursorförflyttning, inskjutning 
och radering, block kommandon och övriga kommandon. 

Cursorförflyttning: * IBM-Kompatibla datorer * 


Bokstav vänster.. 

Bokstav höger.. 

Ord vänster.. 

Ord höger. 

Rad upp. 

Rad ned. 

Rulla upp. 

Rulla ned. 

Skärm upp. 

Skärm ned. 

Till skärmens början. 

Till skärmens slut. 

Till början av filen. 

Till slutet av filen. 

Till radens början. 

Till radens slut. 

Till början av block. 

Till slut av block. 

Till förra positionen. 

Förflyttar markören till senaste 
kompileringsfelet. 


CTRL-S. Pil vänster 

CTRL-D. Pil höger 

CTRL-A. CTRL-Pil vänster 

CTRL-F. CTRL-Pil höger 

CTRL-E. Pil upp 

, CTRL-X. Pil ned 

, CTRL-Z 
, CTRL-W 

.CTRL-R. PgUp 

.CTRL-C. PgDn 

.CTRL-Q-E_ CTRL-Home 

, CTRL-Q-X_CTRL-End 

.CTRL-Q-R_ CTRL-PgUp 

.CTRL.-Q-C_CTRL-PgDn 

.CTRL-Q-S_Home 

.CTRL-Q-D_End 

•CTRL-Q-B 
•CTRL-Q-K 
, CTRL-Q-P 


CTRL-Q-W 


Inskjutning och Radering: 


Inskjutning på/a v.CTRL-V... 

Skjut in rad.CTRL-N 

Radera tecken under markören.CTRL-G... 

Radera rad.CTRL-Y 

Radera till slut av rad.CTRL-Q-Y 

Radera ord till höger.CTRL-T 

Sista felpositionen.CTRL-Q-W 

Raderar tecken till vänster om markören.CTRL-H.. . 
Raderar ord till höger om markören.CTRL-T 


Ins 


Del 


Backspace 


Block kommandon: 


Märka början av block.CTRL-K-B.... F7 

Märka slut av block.CTRL-K-K_F8 

Märk enstaka ord.CTRL-K-T 

Kopiera block.CTRL-K-C 

Flytta block.CTRL-K-V 

Radera block.CTRL-K-Y 

Läsa block från disk.CTRL-K-R 

Skriv block till disk.CTRL-K-W 

Gömma/visa block.CTRL-K-H 

Skriver block till skrivare.CTRL-K-P 
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Övriga kommandon: 


Avsluta editering.CTRL-K-D 

Tabulering.CTRL-I.Tab 

Auto tabulering på/av.CTRL-Q-I 

Återskapa rad.CTRL-Q-L 

Söka.CTRL-Q-F 

Söka och byta ut.CTRL-Q-A 

Upprepa sökning.CTRL-L 

Lägga in kontrolltecken.CTRL-P 

Aktivera huvudmenyn.F10 

Ladda fil.F3 

Information angående den identi¬ 
fierare som står framför markören....CTRL-F1 

Lägga in kompileringsdirektiven.CTRL-F7 

Avbryta kommandon.CTRL-U 


14.4 Program till Turbo Pascal 4.0. 


Både till ver 3.0 och 4.0 finns det antal fristående programpaket som kan använ¬ 
das tillsammans med Turbo Pascal. Dessa paket består av en eller flera disketter 
och en tillhörande bok. Vi kommer här att redogöra kort för en del av dessa 
programpaket. 


TDebug PLUS 4.0 
Turbo Paint Tools 

Turbo Professional 
Turbo Editor Toolbox 

Turbo Tutor 

Turbo Database Toolbox 
Turbo Numerical Toolbox 
Turbo Gameworks 
Turbo Graphix Toolbox 
Turbo Overlay Manager 


En debugger till Turbo Pascal. 

Innehåller professionellt grafikbibliotek. 

Svensk bruksanvisning. 

Innehåller avbrottsrutiner, residenta program m.m. 

Innehåller editeringsrutiner och tre olika textedito- 
rer MicroStar, FirstEd och Binary Editor. 

Läromedel angående Turbo Pascal. 

För registerhantering. 

Innehåller matematikbibliotek. 

Innehåller spel, schack, bridge mm med källkod. 

Innehåller grafik för CGA, Hercules m fl. 

Innehåller overlay-units och chaining. 


För dig som är inte redan har Turbo Pascal eller vill veta mer angående de olika 
produkterna ovan hänvisar vi till 


DATABITEN AB 
Box 113 

811 22 Sandviken 
Tel 026-236493 
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14.5 TURBO PASCAL ver 3.0, TURBO.COM. 


Vi beskriver här hur du kan använda version 3.0 men rekommenderar dig att. sna¬ 
rast uppgradera din Turbo Pascal till ver 4.0. Texterna som presenteras motsva¬ 
ras de som finns i den svenska versionen Turbo Pascal+. 

14.5.1 Start av systemet. 

Vi beskriver här hur uppstart sker med en dator med flexskiveenhet. 

1 . Starta datorn. 

2. Sätt i systemskivan. 

Nu kommer snart A> upp på skärmen. Kan variera i utseende. 

3. Sätt i den skiva som innehåller Turbo Pascal. 

4. Skriv turbo efter A> och tryck på ENTER-tangenten. 

A>turbo 

5. Du får frågan: 
felmeddelanden (J/N)? 

0m du svarar J får du förutom felnummer även felmeddelanden i klartext på 
svenska. Detta rekommenderas. Att få meddelanden i klartext tar dock ca 
1.5 kbyte av minnet. Men detta har bara betydelse om du skall skriva 
större program. Alltså svara med J. 

6. Nu har du huvudmenyn framför dig. 

L=arbetsdisk: A 
A=aktuellt bibi: 

Wrarb.fil: 

M=huv.fil: 

E=edit C=komp R=exekv S=spar 
D=bibl Q=slut Qrkompileringsval 


Alla kommandon i huvudmenyn utförs genom att trycka på den bokstavstangent som 
är angiven före likhetstecknet och kommandobeskrivningen. 

14.5.2 Exempel för dig som använder TURBO PASCAL för första gången. 

Skapa källprogram, (W=arb.fil:). 

Vi skall nu beskriva hur det går till att skapa och köra ett program under Turbo 
Pascal. Vi förutsätter att du har huvudmenyn framför dig. Vi måste börjar med 
att ange namnet på vår arbetsfil. I menyn finns raden W=arb.fil:, genom att 
trycka på W-tangenten utförs det som finns efter likhetstecknet. Tryck alltså på 

W 

Datorn skriver då 
Namn arbetsfil: 
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Datorn frågar efter vad vi vill döpa vår arbetsfil till. Detta namn blir även 
det namn som arbetsfilen kommer att lagras under, om vi vill spara den. Döpa ar- 
betsfilen till test. Skriv detta namn och tryck därefter på ENTER-tangenten. 

Namn arbetsfil:test 

Namnet på arbetsfilen får bestå av högst 8 tecken (första tecknet skall vara en 
bokstav), därefter ev punkt och högst 3 ytterligare tecken (filtyp). Om man bara 
skriver test kommer datorn att lagra arbetsfilen under namnet test.pas. 

När vi döpt vår arbetsfil är det bara att trycka på E-tangenten, (E=edit) och 
börja skriva in vårt pascalprogram. Tryck alltså på 

E 

Överst i arbetsfilen står det: 

Rad 1 Kol 1 Skjut in Tab A : TEST.PAS 

Rad och kol visar vilken rad respektive vilken kolumn markören befinner sig. 

- Skjut in betyder att varje tecken som skrivs, kommer att skjutas in på den 
plats där markören står. 

Tab betyder att varje ny rad som skrivs, kommer att få samma vänstermarginal 
som föregående rad. 

A : TEST.PAS är namnet på arbetsfilen. A betyder att programmet kommer att 
sparas på den diskett som befinner sig i skivenhet (drive) A. 

Hur du kan ändra Skjut in, Tab resp A: beskrivs på sidan 229 under rubriken 
EDITORN. Som du snart kommer att upptäcka så behövs det speciella kommandon för 
att radera m m i arbetsfilen. Dessa kommandon hittar du i delen EDITORN 14.3. 
Börja med att skriva in programmet: 

program Exl; 
begin 

Writeln('Jag skriver med hjälp av editorn.'); 

end. 


Lämna editorn. 

När du skrivit in programmet lämnar du editorn genom att trycka på 
CTRL - K - D 

Vilket betyder: Håll nere tangenten märkt CTRL och tryck på tangenten märkt K. 
Släpp därefter upp CTRL-tangenten och tryck på D . (Detta gör du alltid när du 
vill gå ifrån textfilen.). Att du inte är i editorn markeras genom att en hake > 
visas på skärmen. För att komma tillbaka till menyn är det bara att trycka på 
ENTER-tangenten. Betrakta nu menyn. Under förutsättning att arbetsfilen döpts 
till test kommer menyn att ha följande utseende: 
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L=arbetsdisk: A 
A=aktuellt bibi. : 


W=arb.fil: TEST.PAS 
M=huv.fil: 

E=edit C=komp R=exekv S=spar 
D=bibl Q=slut O=kompileringsval 


Kompilera en arbetsfil, (C=komp) . 

Arbetsfilen måste kompileras, dvs datorn måste översätta arbetsfilen (källkoden) 
till maskinkod. Detta gör datorn om du trycker på 

C 

Det kan ske två saker vid kompilering. Om programmet är rätt i sin syntax är 
allt frid och fröjd. I annat fall får man kompileringsfel. Om du får kompile- 
ringsfel ber datorn dig att trycka på ESC-tangenten (om ESC-tangent saknas mots¬ 
varas den av CTRL-Ä) och då kommer du automatiskt tillbaka till editorn. Markö¬ 
ren kommer då att stå där felet uppstått. Rätta felet, gå ur arbetsfilen 
(CTRL-K-D), kompilera igen. 

Exekvera, (R=exekv). 

Datorn exekverar programmet, dvs utför det som programmet beskriver, om du 
trycker på 

R 

Om programmet inte är kompilerat innan du trycker på R-tangenten kommer Turbo 
Pascal att först kompilera programmet. 

Spara program, (S=spar). 

Programmet som anges efter W=arb.fil: i huvudmenyn, sparas genom att du trycker 
på 


S 

Programmet kommer att sparas i den enhet som anges efter, L=arbetsdisk:, i 
huvudmenyn. Om det redan finns en fil med samma namn kommer denna att döpas om 
till BAK och den nya versionen ersätter den gamla. Eör att vara säker på att 
inte förlora dina program rekommenderar vi att du alltid sparar programmet innan 
du kör det. Vi bör även påpeka att det är källkoden som sparas, inte det kompi¬ 
lerade programmet. 
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Adressera till diskett/hårddisk, (Lrarbetsdisk:). 

I menyn på datorskärmen, står det: 

L=arbetsdisk : A 

Detta betyder att det program som anges efter W=arb.fil, i vårt fall test.pas, 
kommer att sparas på den diskett som sitter i arbetsdisk (drive) A. Det är en 
fördel att inte spara program på samma skiva som kompilatorn ligger på. För att 
spara dina program på en annan skiva som måste vara formaterad, är det bara att 
sätta in denna i drive B. 

Tryck på : 

L 

Datorn skriver: 

Ny disk : 

Besvara frågan med B 
Ny disk : B 

För att komma tillbaka till drive A upprepas förfarandet men besvara frågan Ny 
disk med A. 

Spara programmet i ett speciellt underbibliotek, (A=aktuellt bibi:). 

Givetvis går det att spara programmet i ett speciellt underbibliotek. Detta bib¬ 
liotek skall då stå i menyn efter 

A=aktuellt bibi: 

Genom att trycka på A-tangenten kan du byta till valfritt underbibliotek. 

SAMMANFATTNING. 


Vi summerar hur vi skall göra för att köra ett program. 

1. Ange namnet på arbetsfilen. W (arb.fil) 

2. Anropa editorn 


3. Skriv programmet. 

4. Gå ur editorn. 

3. Kompilera. 

6. Spara programmet. 

7. Kör programmet. 


E (edit) 

CTRL-K-D 

C 

S 

R 


SYNTAXFEL - 

i 

NEJ 


KÖR PROGRAMMET 
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Bibliotek, (D=bibl). 


För att få information angående vilka program som finns på en diskett eller 
hårddisk används kommandot D=bibl. Om du trycker på D fås följande fråga: 

Urval: 

Här kan du ange namnet på ett program. Om programmet ligger på den aktuella ski¬ 
van kommer endast detta namn att anges på skärmen. Vill du endast se de program 
som slutar på .PAS skriver du *.PAS. 

Om du inte besvarar frågan urval utan bara trycker på ENTER-tangenten kommer 
samtliga programnamn som finns i biblioteket att presenteras på skärmen. 

Alla program som är lagrade med beteckningen .pas är normalt textfiler. 

Köra/kompilera ett program, (R=exekv/C=komp). 

Tryck fram menyn. Det program som står efter M=huv.fil: 

W=arb.fil: 

M=huv.fil: 

är det program som kommer att exekveras/kompileras om du trycker på R/C. 

Om inget program anges efter M=huv.fil kommer det program som anges efter 
W=arb.fil att exekveras/kompileras. 

Köra ett program som redan finns lagrat på disketten. 

Om du vill lägga in och köra något annat program, tryck på 
W 

(Om det redan ligger ett program i arbetsfilen som ej är sparat kommer först en 
fråga om du vill spara detta program.) 

Datorn frågar efter vilket program du vill köra. 

Namn arbetsfil: 

Skriv in önskat programnamn. 

Om du vill tömma arbetsfilen helt gör du bara vagnretur när datorn frågar 
Namn arbetsfil: 

Huvudfil, (M=huv.fil). 

Används då större programsystem skall byggas upp av flera includefiler. Det går 
då att editera includefiler och kompilera direkt. Detta innebär att kompilatorn 
automatiskt ser till att huvudfilen laddas in. Om det uppstår kompileringsfel i 
någon includefil kommer denna automatiskt att laddas in för rättning. 
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Kompileringsval, (O=kompileringsval). 

kompilera-> Minnet Kompilerar till minnet vilket är mycket snabbt. 


kompilera-> Com-fil Kompilera från minnet till en diskett. Pascalprogrammet 

kommer då att kompileras till en COM-fil som kan köras 
direkt från operativsystemet. Program som kompileras som 
COM-filer kan vara större än program som kompileras till 
minnet. 

kompilera-> cHn-fil Används då flera program skall kopplas samman till ett 

program. En CHN-fil måste anropas från ett annat pascalp- 
rogram. CHN-filer skiljer sig från COM-filer genom att 
CHN-filer saknas i Pascalbiblioteket. 


Avbryta Turbo Pascal, (Q=slut). 

Q = Slut 

avbryter Turbo Pascal och återgår till operativsystemet. Om det finns något 
program som ej är sparat kommer du att få frågan om programmet skall sparas 
innan du lämnar Turbo Pascal. 
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15 Övningsuppgifter 

***** KAPITEL 2 ENKLA PASCALBEGREPP. ***** 

ÖVNING 2.1. 

Skriv ett program som ger utskriften: 

Pascal är ett exempel på ett högnivåspråk. 

Högnivåspråk kallas även för problemorienterat språk. 

ÖVNING 2.2. 

Skriv ett program som tömmer skärmen och därefter skriver ut ditt namn. 

ÖVNING 2.3. 

Skriv ett program som ger utskriften: 


* VICTOR * 
********** 


ÖVNING 2.4. 

Skriv ett program som har följande konstant deklarerad: 
const konstant = 'the U.S.A. 

Med hjälp av den deklarerade konstanten skall följande text skrivas ut: 

Born in the U.S.A. 

I was born in the U.S.A. 

I was born in the U.S.A. 

Born in the U.S.A. 

Efter det att du kört programmet och det fungerar så kan du ändra konstantdekla¬ 
rationen till: 

const konstant = 'Tomelilla. '; 
och därefter testköra programmet igen. 

ÖVNING 2.5. 

Skriv ett program som adderar två heltal. Följande text skall visas på skärmen 
(s k ledtext). 

Program som adderar två heltal. 

Ange första talet: 

Ange andra talet: 

Summan blir 

ÖVNING 2.6. 

Ändra i programmet 2.5 så att tal av typen real kan läsas in. Resultatet av 
additionen skall skrivas ut med två decimaler. 


ÖVNING 2.7. 

Skriv ett program som frågar efter antalet tyska mark och anger hur mycket detta 
motsvarar i svenska kronor. Antag, att 1 DM = 3.5 Svkr. 
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ÖVNING 2.8. 

Skriv ett program som beräknar volymen av en kub. 

Lämplig ledtext: Ange kubens sida. 

ÖVNING 2.9. 

Skriv ett program som frågar efter sidorna i en rektangel och beräknar rektang¬ 
elns area och omkrets. 

ÖVNING 2.10. 

Skriv ett program som frågar efter en varas pris utan moms och därefter beräknar 
varans pris med moms och skriver ut detta värde. 

ÖVNING 2.11. 

Skriv ett program som beräknar den potentiella energin W = m * g * h, då massan 
m och höjden h matas in (sätt g = 9.81). 

ÖVNING 2.12. 

Skriv ett program som läser in tre tal och därefter beräknar dess medelvärde och 
dess summa. 

ÖVNING 2.13. 

Den lägsta temperaturen man kan få är -273 grader Celsius, den s k absoluta 
nollpunkten. Vetenskapsmän använder ofta en temperaturskala som benäms kelvin¬ 
skalan. Kelvinskalan har -273 grader Celsius som sin nollpunkt. Sambandet mellan 
temperaturen T i Kelvin och temperaturen t i grader Celsius ges av 

T = 273 + t 

Skriv ett program som frågar efter temperaturen i grader Celsius och omvandlar 
detta värde till Kelvin. 

ÖVNING 2.14. 

Skriv ett program som raderar skärmen och därefter skriver "CENTRERAT" mitt på 
skärmen. 

ÖVNING 2.13. 

Skriv ett program som läser in en siffra och skriver ut siffran på valfri plats 
på skärmen. 

Ange en siffra: 

Var på skärmen skall siffran placeras? 

Ange x-koordinaten: 

Ange y-koordinaten: 

ÖVNING 2.16. 

Tag något av dina fungerande program och ändra i detta så att utskrifterna styrs 
till skrivaren. 

ÖVNING 2.17. 

Skriv ett program som läser in ett tal av typen real och därefter skriver ut 
talet fem gånger med en decimal och förskjutet ett steg åt höger efter varje ut¬ 
skrift . 

Använd fem Writeln(tal :x:x). Exempel på körning 

Ange ett reellt tal: 3.223 
Utskrift. 

3.2 

3.2 

3.2 

3.2 

3.2 
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ÖVNING 2.18. 

Skriv ett program som frågar efter din bruttolön och skatt i decimalform. Däref¬ 
ter ger datorn besked om hur stor del av din bruttolön som betalas ut dvs din 
nettolön. 

***** KAPITEL 3 ARITMETISKA OCH LOGISKA OTTRYCK. DATATYPEN BOOLEAN. ***** 

ÖVNING 3.1. 

Skriv ett program som läser in två heltal, dividerar talen med varandra och ger 
heltalsdelen och resten vid divisionen. 

Ange täljare: 

Ange nämnare: 

Resten vid divisionen blir: 

Heltalsdelen blir: 

ÖVNING 3.2. 

Tolka programmet nedan. 

program Logik; 

var tall, tal2 : integer; 

begin 

Write('Ange ett tal: '); 

Readln(tal1); 

Write('Ange ett tal till: '); 

Readln(tal2); 

WritelnC'tall < tal2 är ',tal1 < tal2); 

end. 


ÖVNING 3.3. 

Skriv ett program som tilldelar en boolesk variabel värdet true, och därefter 
skriver ut variabelns värde. Därefter tilldelas samma variabel värdet false, och 
återigen skrivs variabelns värde ut. 

ÖVNING 3.4. 

Skriv ett program som läser in två tal. Om dessa är lika skall datorn skriva 
TRUE annars FALSE. 


ÖVNING 3.5. 

Skriv ett program som skapar en sanningstabell enligt avsnitt 3.3.2 Logiska ope¬ 
ratorer. Förslag till början 


program Sanningstabell; 
var a, b : boolean; 

begin 

a := false; 
b := false; 

Writeln( ' a b 

Writeln(a, ' , b, ' 


a and b 
',(a and b), ' 


or b 
(a 


a xor 
or b), 


b 


'); 

',(a xor b)); 


end. 
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***** KAPITEL 4 STYRANDE SATSER OCH MATEMATISKA EUNKTTONER. ***** 


ÖVNING 4.1. 

Gör ett program som läser in ett tal. Om talet är negativt skall utskriften vara 
TALET ÄR NEGATIVT. Annars skall utskriften vara TALET ÄR POSITIVT. 

ÖVNING 4.2. 

Skriv ett program som frågar "Ange ålder ". Om personen är över 65 skrivs texten 
"Du är pensionerad!" ut i annat fall skrivs texten "Du är troligen inte pensio¬ 
nerad!" ut. 

ÖVNING 4.3. 

Skriv ett program som beräknar volymen av en cylinder för olika värden på radien 
i basytan och höjden. Programmet ska ge en lämplig felutskrift om användaren 
anger en negativ radie. 

ÖVNING 4.4. 

Skriv ett program som ger information om hur mycket det kostar att gå in på ett 
nöjesplats. Antag att barn under 3 år kommer in gratis, barn under 11 år betalar 
10 kr och övriga 20 kr. 

Lämplig ledtext: 

VÄLKOMMEN TILL NÖJESPARKEN. 

Hur gammal är du? 

Inträdet blir 


ÖVNING 4.5. 

Ändra i programmet ovan så att priset för en hel familj beräknas. 

Lämplig ledtext: 

VÄLKOMMEN TILL NÖJESPARKEN. 

Hur många personer ingår i familjen? 

Hur många är under tre år? 

Hur många är under 11 år? 

Inträdet blir 

ÖVNING 4.6. 

Lägg även till i programmet ovan så att datorn talar om hur mycket som skall 
betalas tillbaka när en person betalar med ett visst belopp. Om personen betalar 
med för litet belopp skall datorn svara, FÖR LITET BELOPP! 

ÖVNING 4.7. 

Gör ett program som läser in ett heltal och beräknar kvadraten på talet och 
kvadratroten. 

En test utföres om det inlästa talet är negativt, då ges en felutskrift: 

TALET ÄR NEGATIVT. 


ÖVNING 4.8. 

Skriv ett program som frågar efter hur mycket pengar du har. Därefter frågar 
datorn efter hur måga semesterdagar du skall ha i följd. Om du har 14000 kr 
eller mera och har mer än 14 dagar semester skall datorn skriva ut "Varför inte 
åka till Australien.". Annars skriver datorn ut "Du får nog arbeta lite till." 

ÖVNING 4.9. 

Skriv ett program som ställer frågan "Ange en månad (1-12):" Med hjälp av repe- 
at-until och operatorn and skall du åstadkomma så att frågan upprepas tills det 
att rätt siffra anges. 
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ÖVNING 4.10. 

Skriv ett program som avgör om ett inmatat heltal är delbart med t ex 25. Använd 
heltalsoperatorn mod. 

ÖVNING 4.11. 

Skriv ett program som avgör om ett heltal, tall är jämnt delbart med heltalet, 
tal2. Använd heltalsoperatorn mod. 

ÖVNING 4.12. 

Skriv ett program som beräknar rötterna till andragradsekvationen: 

2 

x + px + g = 0 

Om ekvationen saknar reella rötter skall en lämplig utskrift ske. 

ÖVNING 4.13. 

Skriv ett program som läser in två punkter i koordinatform. Därefter beräknas 
avståndet mellan punkterna (Avståndsformeln). 

ÖVNING 4.14. 

Skriv ett program som läser in ett heltal och därefter räknar ner heltalet. 

Ange ett heltal: 5 
Nedräknat: 54321 

ÖVNING 4.15. 

Skriv ett program som beräknar ränta på ränta för 5 år. 

Utskrift : 

Hur stor är räntesatsen? 

Hur stort är startkapitalet? 

År Kapital 

1 

2 

3 

4 

5 

(kapital := kapital + räntesats * kapital/100). 

ÖVNING 4.16. 

Gör ett program som gör en multiplikationstabell. 

Exempel på utskrift : 

Vilken multiplikationstabell önskas? 

Hur långt skall jag räkna? 

(Om vi svarar 3 resp. 5 blir utskriften:) 

3:ans multiplikationstabell. 

3*1=3 
3*2 = 6 
3*3 = 9 
3 * 4 = 12 
3 * 5 = 15 


247 



ÖVNING 4.17. 

Skriv ett program som frågar efter en siffra mellan ett och tolv och kontrolle¬ 
rar så att ingen annan siffra anges. Därefter skrivs respektive månad ut 

Ange en siffra: 5 

Detta motsvaras av månaden MAJ. 

Jag avslutar programmet om du anger siffran 12345. 


ÖVNING 4.18. 

Skriv ett momsprogram som först läser in momsen och därefter visar menyn 


****** MENY ****** 

1. Inmatning av pris utan moms 

2. Inmatning av pris med moms. 

Ange alternativ 1 eller 2: 

Alternativ 1 skall som resultat ge priset med moms. 

Alternativ 2 skall som resultat ge hur stor del som utgör moms. 

ÖVNING 4.19. 

Skriv ett program som läser in en följd av heltal och räknar ut hur många av de 
inmatade heltalen som är positiva resp. negativa. Programmet avslutas om talet 0 
anges. 


Ex. på utskrift 

Antal positiva heltal : 5 
Antal negativa heltal : 4 

ÖVNING 4.20. 

Gör ett program som skriver ut en tabell över sinx och cosx mellan 0 och pi/2. 
(steglängden = 0.1). 

ÖVNING 4.21. 

Gör ett program där du läser in numret på en månad (1-12). Med hjälp av en 
case-sats skriver du sedan ut motsvarande namn och antalet dagar i månaden. 
Programmet skall ge en felutskrift om ett felaktigt månadsnummer anges. 

ÖVNING 4.22. 

Skriv ett program som läser in ett 3-siffrigt heltal och skriver ut siffrorna i 
omvänd ordning. 

Exempel på körning: 

Ange ett 3-siffrigt tal : 234 
Siffrorna i omvänd ordning : 432 

ÖVNING 4.23. 

Ta ett tresiffrigt tal (t ex 200), vänd det bak och fram (002) och multiplicera 
sedan de två talen 

002 * 200 = 400 

Resultatet 400 är en kvadrat. 

Skriv ett program som finner alla tresiffriga tal med denna egenskap. 
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ÖVNING 4.24. 

Skriv ett program som beräknar summan: 

5 + 6 + 7 + 8 + ... + n 
Talet n matas in med Readln(n). 

ÖVNING 4.25. 

Skriv ett program, som läser in talet k resp. m för en linje y = kx + m och 
sedan skriver ut koordinaterna för linjens skärningspunkt med x-axeln resp y-ax- 
eln. 

ÖVNING 4.26. 

Skriv ett program, som skriver ut en värdetabell för funktionen: 

y = x 3 - 6x 2 + 4 ; -2 < x < 6 

x-värdena skall vara -2, -1.5, -1, -0.5, 0, 0.5 o.s.v. 


ÖVNING 4.27. 

Skriv ett program , som undersöker hur många termer det behövs för att summan: 


skall överskrida 5000. 

ÖVNING 4.28. 

Skriv ett program, som läser in ett antal sekunder och ger utskriften i timmar, 
minuter och sekunder. 

ÖVNING 4.29. 

Skriv ett program med hjälp av en for-sats så att du får ut 20 slumptal utskriv¬ 
na på skärmen. Slumptalen skall ligga mellan 0 och 1. 

ÖVNING 4.30. 

Skriv ett program med hjälp av en for-sats så att du får ut 20 slumptal utskriv¬ 
na på skärmen. Slumptalen skall ligga mellan 0 och 31. 

ÖVNING 4.31. 

Skriv ett program som "utför 100 tärningskast" och ger information om hur många 
av tärningskasten som är sexor. 


***** KAPITEL 5 SKÄRMHANTERING OCH GRAEIK. ***** 

ÖVNING 5.1. 

Rita två vertikala linjer i en lämplig färg, så att skärmen delas i tre lika 
stora delar. 

ÖVNING 5.2. 

Rita en linje från nedre vänstra hörnet till mittpunkten på skärmens högra sida 
och härifrån en linje till mittpunkten på skärmens övre sida. 

ÖVNING 5.3. 

Gör ett program där du ritar linjer mellan punkterna 

(120.170) , (120,50), (140,20), (160,50), (160,170), (160,120), (180,170), 

(100.170) , (120,120). 
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ÖVNING 5.4. 

Använd MoveTo och LineTo för att rita linjer som går utanför skärmen. 

Rita en linje från (0,100) till (800,100), till (100,0) och till (-500,500). 

Vad händer? Hur fungerar grafikmarkören tillsammans med dessa två instruktioner? 

ÖVNING 5.5. 

Rita en liksidig triangel precis mitt på skärmen. Längden av en sida skall vara 
ungefär halva skärmhöjden. 

ÖVNING 5.6. 

Modifiera programmet ovan så att även medianerna, linjerna från ett hörn till 
mittpunkten på motstående sida, ritas ut. 

ÖVNING 5.7. 

Rita en ram kring skärmen med hjälp av rutinen Rectangle. Ramen skall bestå av 
en större och en mindre rektangel. Avståndet mellan den yttre och den inre rek¬ 
tangeln skall vara ca en femtiondedel av skärmhöjden. 

ÖVNING 5.8. Rita ett stort A mitt på skärmen. Storleken på A:et skall vara ca en 
fjärdedel av skärmhöjden. 

ÖVNING 5.9. 

Skriv (rita) ditt namn med runskrift! 

ÖVNING 5.10. 

Exploderande fönster. Rita först en liten rektangel mitt på skärmen. Därefter 
ritar du en ny rektangel precis utanför den förra och suddar sedan den gamla, 
dvs du ritar den igen men med svart färg. Så här håller du på tills rektangeln 
har den storlek som är lagom. 

ÖVNING 5.11. 

Rita en kvadrat mitt på skärmen. Kvadratens sida skall vara halva skärmhöjden. 
Därefter ritar du en ny kvadrat inuti den förra med hörnen belägna på mittpunk¬ 
ten av den förra kvadratens sidor. Fortsätt att rita en följd av kvadrater på 
det här sättet tills kvadratens hörn sammanfaller. 

ÖVNING 5.12. 

Modifiera programmet med en ram kring skärmen så att konturen av ramen har en 
färg och själva ramen en annan. 

Eventuellt kan du välja olika fyllmönster vid fyllningen av ramen. 

ÖVNING 5.13. 

Rita de nordiska flaggorna. 

ÖVNING 5.14. 

Rita gaveln på en villa med ovanvåning. Villan har två fönster i bottenplanet 
och ett stort fönster på ovanvåningen. Färglägg! 

ÖVNING 5.15. 

Rita två tärningar med prickarna utsatta på de synliga sidorna. Använd t ex 
rutinen Bar3D. 

ÖVNING 5.16. 

Rita två cirklar utanför varandra som går genom varandras medelpunkter. 

ÖVNING 5.17. 

Rita två cirklar med olika radier. Cirklarna tangerar varandra. 
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ÖVNING 5.18. 

Rita en följd av cirklar utanför varandra. Cirklarna tangerar varandra och blir 
successivt mindre. 

ÖVNING 5.19. 

Rita tre cirklar som tangerar varandra två och två. Cirklarna skall ha olika 
radier och ligga utanför varandra. Rita därefter en triangel med hörnen i cirk¬ 
larnas medelpunkter. 

ÖVNING 5.20. 

Rita de fem olympiadringarna i olika färg om det är möjligt. Låt ringarna först 
utgöras av enkla cirklar. Modifiera sedan programmet så att varje ring består av 
två cirklar där området mellan cirklarna är färgat. 

ÖVNING 5.21. 

Rita ett antal ellipser som har samma medelpunkt och y-axel men där du ökar x- 
axeln med fem enheter för varje ellips som ritas. 

Gör därefter om samma sak men varierar i stället storleken på y-axeln. 

ÖVNING 5.22. 

Kon. Rita en ellips på nedre delen av skärmen och därefter ett antal ellipser en 
liten bit ovanför varandra. Du minskar y-koordinaten och gör samtidigt x- och 
y-axel lite mindre för varje ellips du ritar. 

ÖVNING 5.23. 

Rita symbolen för ett radioaktivt ämne. Fyll vingarna med rött. 

ÖVNING 5.24. 

Browns rörelse. Definiera ett fönster som ligger mitt på skärmen och som utgör 
ca halva skärmen. Använd sedan LineRel där du som argument anger två slumpmässi¬ 
ga koordinater med Random(5). Rita hundra förflyttningar. 

ÖVNING 5.25. 

Skriv ditt namn på skärmen med standardfonten. 

ÖVNING 5.26. 

Skriv ditt namn tio gånger med den gotiska fonten. Låt namnet bli större och 
större. Använd TextHeight vid radframmatningarna. 

ÖVNING 5.27. 

Gör samma sak men rita nerifrån och upp. 

ÖVNING 5.28. 

Gör ett program där du ritar ett schackbräde med 64 rutor, varannan ljus och 
varannan mörk. Pjäserna är svåra att rita så att du kan nöja dig med att markera 
dem med bokstäver. Beteckna kungen med K, damen med D, tornet med T, löparen med 
L, springaren med S och bonden med B, 

Placera pjäserna i utgångsställning och skriv dem i lämplig färg. 


***** KAPITEL 6 DATATYPERNA STRING OCH ARRAY. ***** 


ÖVNING 6.1. 

Skriv ett program som läser in två strängar och undersöker om de är lika. 
Texten LIKA eller OLIKA ska skrivas ut. 
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ÖVNING 6.2. 

Skriv ett program som frågar efter ditt förnamn och därefter skriver ut vad ditt 
förnamn börjar på för bokstav. 

Hej! Vad heter du? Emma 

Ditt namn börjar på bokstaven E 

ÖVNING 6.3. 

Skriv ett program som frågar efter en siffra och sedan skriver ut det tecken i 
ASCII-tabellen som motsvaras av denna siffra. 

ÖVNING 6.4. 

Skriv ett program som frågar efter en siffra och därefter avgör om siffran mots¬ 
varas av stor eller liten bokstav enligt ASCII-tabellen. Om siffran inte motsva¬ 
ras av någon bokstav i alfabetet skall frågan upprepas. 

ÖVNING 6.5. 

Skriv ett program som läser in ett ord och därefter avgör hur många bokstäver 
det finns i ordet. 

ÖVNING 6.6. 

Skriv ett program som läser in ett ord och därefter avgör hur många små resp 
stora bokstäver det finns i ordet. 

ÖVNING 6.7. 

Skriv ett program som läser in ett ord och därefter skriver ut ordet med mellan¬ 
rum mellan varje bokstav. 

ÖVNING 6.8. 

Skriv ett program som läser in en sträng på minst sex tecken. Därefter skrivs 
följande information angående strängen ut 

De tre första bokstäverna är 
Strängens längd är 
Strängens sista bokstav är 


ÖVNING 6.9. 

Skriv ett program som krypterar ett ord genom att t ex byta ut varje tecken mot 
det tecken som enligt ASCII-tabellen är två enheter lägre. Därefter skrivs det 
krypterade ordet ut på skärmen. 

ÖVNING 6.10. 

Skriv ett program som är nyckel till den kryptering som sker enligt övning 6.9. 
Programmet skall läsa in det krypterade ordet och därefter skriva ut det "ursp¬ 
rungliga" ordet. 

ÖVNING 6.11. 

Gör ett program som läser in en sträng och därefter skriver ut strängen 
men i omvänd ordning. 

ÖVNING 6.12. 

Gör ett program som byter enstaka tecken i en sträng. Programmet skall 
först läsa in en godtycklig sträng. Därefter frågas vilket ordningsnummer det 
nya tecknet skall ha och på vilken plats i strängen det skall sättas in. Slutli¬ 
gen skrivs den nya strängen ut. 

Exempel på körning 
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Ange en godtycklig sträng: gräsmatta 
Ordningsnummer för tecken: 102 
Platsnummer i strängen : 1 
Den nya strängen är : fräsmatta 

ÖVNING 6.13. 

Gör ett program som läser in en sträng och som därefter skriver ut samma sträng, 
men med alla små bokstäver utbytta mot stora. 

Stora bokstäver har alla ett ordningsnummer som ligger i intervallet 64 till och 
med 94. Små bokstäver har ordningsnummer mellan 96 och 126. 

Tag följande till hjälp: Om en stor bokstav har ordningsnumret x, så är ord- 
ningsnumret för liten bokstav x+32. 

ÖVNING 6.14. 

Skriv ett program som läser in två heltal som strängar och därefter omvandlar 
dessa till heltal så att resultatet av en addition av talen kan skrivas ut. 

var tall, tal2 : string[3]; 

ÖVNING 6.15. 

Skriv ett program som läser in en sträng och därefter avgör om en viss delsträng 
finns i den inlästa strängen. 

Exempel på körning 

Ange en sträng: TURBO 
Ange en delsträng:B0 

BO finns i strängen TURBO och börjar i position 4 


ÖVNING 6.16. 

Skriv ett program som läser in personnummer på formen 870528-1234 och kontrolle¬ 
rar att personnumret endast består av siffror. Givetvis skall sjunde tecknet 
vara ett bindestreck, minustecken. Om annat än siffror matats in skall ny inmat¬ 
ning begäras. 

ÖVNING 6.17. 

I Turbo Pascal finns en instruktion med vars hjälp man kan läsa in enstaka teck¬ 
en från tangentbordet, 

ch: =ReadKey; 

Så snart du trycker på en tangent läses motsvarande tecken in i variabeln ch som 
är av typen char. 

Vi kan använda detta för att flytta markören på skärmen om en viss tangent 
trycks ner. 

Siffertangenterna på räknare och liknande är ofta placerade enligt nedan. 

7 8 9 

4 5 6 

1 2 3 

0 

Man kan låta siffrornas placering avgöra åt vilket håll som markören skall flyt¬ 
tas . 

Siffran 9 betyder alltså att markören skall flyttas ett steg uppåt och ett steg 
åt höger, siffran 4 innebär att markören flyttas ett steg åt vänster. 

Siffran 5 innebär ingen förflyttning och siffran 0 anger att programmet skall 
avslutas. 
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Förse programmet med lämpliga ledtexter som du placerar på fasta ställen på 
skärmen t ex 


'Flytta markören med någon av tangenterna 1..9. ' 

'Avsluta programmet med riktningen "0" 

'Markören befinner sig nu i position ?,? 

Markörens placering kan du lagra i två variabler kol och rad. T ex 

if ch='9' then begin 
kol:=kol+1; 
rad:=rad-1; 
if kol=81 then 
kol:=1 ; 
if rad=0 then 
rad:=25; 

GotoXY(kol,rad); 

<skriv ut markörens placering> 

end; 

I stället för if-satser använder du enklast case-satsen. 

ÖVNING 6.18. 

Skriv ett program som slumpar veckans lottorad. 

VECKANS LOTTORAD. 

Lottonummer: 

Tilläggsnummer: 

ÖVNING 6.19. 

Frekvenstabell för kast med en tärning. 

Gör ett program som läser in hur många gånger tärningen skall kastas. Därefter 
presenteras resultatet i en tabell. 

Exempel på skärmutskrift: 


Kast med tärning. 

Ange antalet kast: 500 

F rekvenstabell. 

Etta Tvåa Trea Fyra Femma Sexa 
Frekvens (%) 16 17 15 15 17 20 

Fler gånger? J 


Använd funktionen Random för att avgöra vad resultatet blir vid ett kast. Med 
Random(6) får man slumptal i intervallet 0..5. 

Lagra utfallet i en array med sex element. Jämför med programexemplet Frekvens. 

Om du har läst grafikkapitlet kan du i stället för tabellen försöka rita ett 
stapeldiagram. Kanske kan du rita staplarna för varje kast som utförs, så att 
man ser hur utfallen förändras. 

ÖVNING 6.20. 

Gör ett program som läser in 100 slumptal i intervallet 0 till 1000 i en vektor. 
Sortera talen enligt någon av de beskrivna sorteringsalgoritmerna och skriv 
därefter ut dem. 
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ÖVNING 6.21. 

Lagring av stora heltal i en vektor. 

Gör ett program som läser in ett stort heltal, t ex 2159314, i en sträng. Är det 
första inlästa tecknet en punkt avslutas programmet. 

Om strängen annars innehåller andra tecken än siffertecken eller blanktecken, 
skall texten 'Detta är inget tal!' skrivas ut och nytt tal efterfrågas. 

Om den inlästa strängen är korrekt för övrigt tas eventuella blanktecken bort. 
Därefter lagras det sista tecknet (=entalssiffran) i strängen i en heltalsvektor 
a i vektorelement a[0]. Näst sista tecknet lagras i element a[l] osv. 

När alla siffertecknen överförts till vektorn a lagras antalet positioner (= an¬ 
talet siffror i talet) i elementet a[—1]. Slutligen görs en utskrift av talet 
som lagrats i vektorn. 

ÖVNING 6.22. 

Modifiera programmet ovan så att utskriften av siffrorna sker i grupper om tre. 
T ex 1 363 487. 

ÖVNING 6.23. 

Multiplikation med hjälp av en vektor. 

(Detta är en ganska stor programmeringsuppgift) 

Gör ett program som utför en multiplikation av heltal precis så som den utförs 
för hand. T ex 


5 8 9 
2 3 
17 6 7 
117 8 


Definiera en multiplikatorvektor a, en multiplikandvektor b och en resultatvek¬ 
tor c. I exemplet ovan innehåller a talet 23, b innehåller talet 589 och c inne¬ 
håller talet 13547. 


Vektorerna a,b skall kunna rymma 25 sifferpositioner (dvs 26 heltalselement) 
medan resultatvektorn c bör kunna rymma 50 positioner. I exemplet ovan innehål¬ 
ler 


a[0] talet 
a[l] talet 
a[ — 1 ] talet 
b[0] talet 
bEl] talet 
b[2] talet 
b[—1] talet 


3 (ental) 

2 (tiotal) 

2 (antalet positioner i 
9 (ental) 

8 (tiotal) 

5 (hundratal) 

3 (antalet positioner i 


talet 23) 


talet 589) 


Inläsningen av talen kan göras som i övning 6.21. 

Alternativt kan du ha talen lagrade i form av strängkonstanter t ex 
const atal ='23'; 

btal ='589'; 


Därefter skall multiplikationen a*b utföras och resultatet lagras i vektorn c. 
Exempel på utskrift: 23 * 589 = 13547 

Allra först ser du till att resultatvektorn c är nollställd. 


255 



Därefter börjar du multiplikationen med elementet a[0]. Eftersom antalet posi¬ 
tioner i b är tre, skall elementen b[0] tom b[2] multipliceras med elementet 
a[0]. Först utförs multiplikationen a[0]*b[0]. Resultatet av denna multiplika¬ 
tion adderar du direkt till elementet c[0]. Eventuella minnessiffror klarar du 
av efteråt. Därefter utför du multiplikationen a[0]*b[l] och adderar resultatet 
till c[1]. På liknande sätt behandlar du multiplikationen a[0]*b[2]. 

Nästa multiplikatorelement är a[1]. Du skall nu börja med multiplikationen 
a[l]*b[0]. Observera index! Resultatet adderar du till c[l]. Därefter beräknar 
du a[1]*b[1 ] etc. 

När hela multiplikationen är utförd, måste du kontrollera så att de enskilda 
elementen i c inte är större än tio, vilket de med all sannolikhet är. Du börjar 
då med det första elementet i c. Om t ex c[0]=123, så skall hundratalssiffran 1 
adderas till c[2], medan tiotalssiffran 2 adderas till c[l] och kvar i c[0] 
skall ligga en etta. På liknande sätt förfar du med c[1], c[2] osv. Du kan fun¬ 
dera över vilket som är det största tal som ett vektorelement kan innehålla. 

Eftersom resultatet vid multiplikationen kan innehålla många siffror och därför 
är svårt att överblicka, kan du försöka formatera utskriften genom att gruppera 
siffrorna tre och tre. T ex 1 363 487. 

ÖVNING 6.24. 

Använd tekniken i föregående uppgift för att med full precision att beräkna 30! 
dvs produkten 

30*49*48*...*3*2*1. 


***** KAPITEL 7 MER OM TYPBEGREPPET. EGENDEKLARERADE TYPER. MÄNGDER. ***** 

ÖVNING 7.1. 

Skriv ett program som gör utskriften "TEST PÅ OPERATORN in". Därefter kommer 
frågan "Flera utskrifter (j/n):". Om svaret är eller börjar på j eller J sker en 
ny utskrift i annat fall avslutas programmet. 

ÖVNING 7.2. 

Vad kommer programmet nedan att resultera i? 

program Mangd; 

var mangdl : set of char; 

mangd2 : set of 'A'..'E'; 

begin 

mangdl : = [ 'Ä'.. 'E']; 
mangd2 := [ 'C '.. 'E ', 'A', 'B']; 

Writeln( 'Detta är ',mangdl=mangd2); 

Writeln('Detta är ' ,mangd2=mangd1); 

Writeln('Detta är ',mangdl <> mangd2); 
end. 
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ÖVNING 7.3. 

Vad kommer programmet nedan att resultera i? 


program Mangd2; 
var A,B : set of 

C : set of 'A '. . 'D '; 

begin 

A := [ 'A'. . 'Z ' ]; 

B := A; 

C := [ 'A'. . 'D']; 

Writeln(A >= B); 

Writeln(A <= B); 

Writeln(C <= A); 

Writeln(C >= A); 
end. 

ÖVNING 7.4. 

Gör i ett program följande definitioner 

var 

ml ,m2 : set of 0..99; 
tal : integer; 

Varför kan du inte använda intervallet 0..990? 

Initiera sedan ml och m2 till tomma mängder: 

ml:=[ ]; 
m2:=[]; 

tilldela därefter ml och m2 vardera tio element t ex med 

ml:=m1+[Random(14)]; 
m2:=m2+[Random(14)]; 

Skriv sedan ut de element som finns i mängderna. 

Finns det tio element i vardera mängden? Hur förklarar man en avvikelse? 


Komplettera programmet genom att göra jämförelser m1<=m2 etc. och se vad detta 
ger för resultat. 

Inför vidare en tredje mängd m3 och undersök vad satserna 

m3:=m1-m2; 
m3:=m1+m2; 
m3:=m1*m2; 

var för sig ger som resultat. 
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***** KAPITEL 8 PROCEDURER. ***** 

ÖVNING 8.1. 

Skriv en procedur Utskrift som bara ger utskriften "SOLEN SKINER!" Placera pro¬ 
ceduren i programmet Skriva och kör programmet. 

program Skriva; 
begin 

Utskrift; 

end. 

ÖVNING 8.2. 

Skriv ett program som använder proceduren Utskrift. Programmet skall ställa frå¬ 
gan "Hur mycket är klockan?" Om klockan är mellan 06.00 - 21.00 skall proceduren 
Utskrift anropas, dvs ge utskriften "SOLEN SKINER". I annat fall skall datorn 
skriva ut "Antingen är klockan före 06.00 eller efter 21.00." 

ÖVNING 8.3. 

Gör om programmet Raknare i Exempel 4.16 till en procedur. Låt variabeln tal 
vara en global variabel. 

program Omskrivning; 
var tal : integer; 
procedure Raknare; 
begin 


end; (* Slut på Raknare *) 
begin (* Huvudprogram *) 

Raknare; 

end. 

ÖVNING 8.4. 

Ändra i programmet Omskrivning så att datorn frågar efter hur långt den skall 
göra uppräkningen. Läs in detta i variabeln sluta som deklareras globalt. Låt 
däremot variabeln tal vara lokal. 

ÖVNING 8.5. 

Ändra i programmet RackerlnteLangt, exempel 8.1 så att programmet fungerar. 

ÖVNING 8.6. 

Gör en procedur som ritar en tärning där man kan se framsidan. Låt tärningen 
visa en femma. 

ÖVNING 8.7. 

Modifiera proceduren ovan så att tärningen kan visa olika sidor. Inparameter är 
den sida som skall visas. 

Pröva proceduren i ett program. Låt programmet inledas med texten 'Vilken sida 
skall tärningen visa?'. Läs in svaret och rita tärningen med hjälp av procedu¬ 
ren. 

ÖVNING 8.8. 

Skriv en procedur Version med en parameter som tar ett heltal och sedan skriver 
ut "Du har Turbo Pascal ver 3.0, uppgradera snarast." om heltalet är tre. 0m 
heltalet är fyra blir utskriften "Du kan lugnt fortsätta och programmera.". 

0m heltalet har ett annat värde blir utskriften "Okänd version." 
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ÖVNING 8.9. 

Vad är det för skillnad på de olika procedurhuvudena? 


procedure Version(heltal:integer); 
procedure Version(var heltal:integer); 

ÖVNING 8.10. 

Redogör för a) Sidoeffekt 

b) Formell och aktuell parameter 

c) Värde- och variabeldeklarerade parametrar. 


ÖVNING 8.11. 

Skriv en procedur OmvSek med en parameter som tar antal sekunder och därefter 
skriver ut tiden i timmar, minuter och sekunder. 

ÖVNING 8.12. 

Skriv proceduren som fattas i programmet nedan så att den fungerar. 


program Pengar; 
var pris : real; 
procedure Omvandla; 


end; (* Omvandla *) 

(* Huvudprogram *) 

begin 

Write( 'Ange pris i decimalform: '); 
Readln(pris); 

Omvandla(pris); 

end. 


Exempel på körning 

Ange pris i decimalform: 21.45 
Priset 21:45 kr 

Proceduren Omvandla skall alltså 
sätta ett kolon (:) mellan kronor 
och öre. 


ÖVNING 8.13. 

Skriv en procedur som skriver ut texten "ARBETE PÅGÅR!". Texten skall blinka, 
dvs du raderar och skriver ut texten. Blinkfrekvensen bestäms av parametern, 
frekv. 

procedure Arbete(frekv : integer); 

ÖVNING 8.14. 

Skriv en procedur som skriver ut en meny och återsänder det valda alternativet 
till huvudprogrammet. 

ÖVNING 8.15. 

Skriv en procedur med en parameter som tar en sträng och ser till att denna 
sträng skrivs ut på skrivaren. 

ÖVNING 8.16. 

Skriv en procedur Understryk, som skriver ut ett antal understrykningstecken. 
Man skall kunna ge antalet tecken som argument till proceduren. 

ÖVNING 8.17. 

Gör en procedur som skriver ut ett heltal i potensform. Inparameter är heltalet. 
Ex. Talet 123 skall ge utskriften 1.23*10 . 
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ÖVNING 8.18. 

Skriv en procedur Add med tre heltalsparametrar. Proceduren adderar de två förs¬ 
ta parametrarna och lägger resultatet i den tredje. Använd proceduren i ett 
program 

Add(2,3,resultat); 

Writeln(resultat); 


ÖVNING 8.19. 

Skriv en procedur som byter plats på två tal som ligger i en vektor, en array. 
Proceduren skall som parametrar ta index för de två tal som skall byta plats. 

procedure BytPlats(indexi,index2:integer); 

ÖVNING 8.20. 

Ändra proceduren i föregående uppgift så att den även tar ett tredje argument, 
nämligen vektorn som innehåller talen. Använd proceduren i ett program och skriv 
i huvudprogrammet sedan ut talen i vektorn, så att man kan se att talen bytt 
plats. 

ÖVNING 8.21. 

Skriv en procedur, TakeThree, med fyra parametrar. De tre första parametrarna 
x,y och z är av heltalstyp. Den fjärde parametern, ok, är av typen boolean. Pro¬ 
ceduren skall avgöra om x < y < z är sant. Om villkoret är sant sätts ok till 
true annars false. Prova proceduren i ett program! 

TakeThree(3,5,4,ok); 

Writeln( '3<3<4 är ',ok); 


ÖVNING 8.22. 

Skriv en procedur som lägger tio slumptal mellan ett och sex i en vektor. Proce¬ 
duren skall kunna ta vektorn som argument. Använd proceduren i ett program och 
skriv sedan i huvudprogrammet ut innehållet i vektorn. 

ÖVNING 8.23. 

Skriv en procedur, TaBortBlanka, med en parameter som kan ta en godtycklig 
sträng. Man skall kunna använda proceduren för att ta bort blanktecken från 
strängvariabler. Prova proceduren i ett program. 

ÖVNING 8.24. 

Skriv en procedur med två strängparametrar. Proceduren plockar ut det första 
ordet som förekommer i den första strängparametern. Detta ord läggs i den andra 
parametern. Samtidigt plockas ordet bort ur den första parametern. Som seperato- 
rer mellan ord räknas blanktecken, kolon etc. 


***** KAPITEL 9 FUNKTIONER. REKURSION. ***** 

ÖVNING 9.1. 

Skriv en funktion med tre heltalsparametrar som returnerar summan av talen, 
function AdderaTre(a,b,c : integer):integer; 

ÖVNING 9.2. 

Skriv en funktion som fungerar som omvandlare mellan valuta. Välj själv en lämp¬ 
lig omvandling, varför inte mellan kronor och dollar. 
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ÖVNING 9.3. 

Skriv en funktion med två parametrar. Första argumentet tar ett tecken och andra 
argumentet tar en godtycklig sträng. Funktionen skall sedan returnera ett tal 
som är lika med det antal gånger som tecknet förekommer i strängen. 

ÖVNING 9.4. 

Skriv en funktion med en parameter som tar ett tal och returnerar kubiken på 
talet. Kalla funktionen för Kubik. När man utför matematiska operationer av 
detta slag bör man vara försiktig så att inte talområdet överskrides, overflow. 
länk igenom vilka taltyper du kan använda. Se avsnitt 3.1.2 Resultat av aritme¬ 
tiska operationer. 

ÖVNING 9.5. 

Skriv en funktion som avgör om två heltal är lika. Om talen är lika returneras 
true annars false. 

ÖVNING 9.6. 

Skriv en funktion som tar en sträng som parameter och returnerar värdet true om 
första tecknet i strängen är en siffra. 

ÖVNING 9.7. 

Skriv en funktion som läser in en sträng och returnerar hur många stora boks¬ 
täver strängen innehåller. 

ÖVNING 9.8 

Prova funktionen Sgd i ett program som läser in två heltal och därefter skriver 
ut det största tal som de båda inlästa talen är delbara med. 

ÖVNING 9.9. 

Skriv en funktion Sign som avgör om ett tal är negativt, positivt eller noll. 

Funktionshuvud: function Sign(number:real): integer; 

Funktionsvärde = -1 om number är negativt, 

0 " " " noll, 

1 " " " positivt. 


ÖVNING 9.10. 

Skriv en funktion CirkelArea som returnerar arean av en cirkel och som argumen¬ 
tet tar cirkelns radie. 

ÖVNING 9.11. 

Skriv en funktion Hyp som beräknar hypotenusan i en triangel och som argument 
tar de båda kateterna. 

ÖVNING 9.12. 

Skriv en funktion Max som tar två argument, a och b, och som returnerar det 
största argumentet. 

ÖVNING 9.13. 

Du har tidigare gjort ett program som omvandlar små bokstäver till stora. 

Skriv en funktion Stora som tar en godtycklig sträng som argument och som retur¬ 
nerar motsvarande sträng men med alla små bokstäver utbytta mot stora. 

ÖVNING 9.14. 

Skriv en funktion Linekv som returnerar lösningen till ekvationen a*x+b=0. 
Argument till Linekv är a och b. 
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ÖVNING 9.15. 

Skriv en funktion med två parametrar, som utgör k- och m-värdet för en rät 
linje, y=kx+m. Därefter skrivs linjens ekvation ut och x-koordinaten för linjens 
skärningspunkt returneras. Exempel på körning 

Ange k-värdet, riktningskoefficienten: -2 
Ange m-värdet, interceptet: 4 
Linjens ekvation är y = -2x+4 
Linjen skär x-axeln i punkten (2,0) 

ÖVNING 9.16. 

Du som har läst om aritmetiska serier i matematiken kan som övning skriva en 
funktion som beräknar summan av en sådan serie. Lämpliga argument är startele¬ 
ment, differens och antal termer. 


ÖVNING 9.17. 

Övning på rekursion. Skriv funktionen Rakna som anropar sig själv och på så sätt 
räknar ner talet 5 med en enhet och skriver ut samtliga tal. 


program Rek; 

function Rakna.. . . ; 


end; (*Rakna*) 

(* Huvudprogram *) 

begin 

Rakna.; 

end. 


Exempel på körning 

Nedräkning av talet 5 med hjälp av rekursion! 
5 
4 
3 
2 
1 


ÖVNING 9.18. 

Skriv en rekursiv funktion Power(b,n) som beräknar b n , där n är ett heltal 
större än noll. Parametrarna b och n skall vara värdedeklarerade och b skall 
vara av typen real. 

Ledning: Det enkla fallet inträffar då n=1. Funktionen kan då returnera talet b. 
Annars måste den returnera b*Power(b,n-1). 

***** KAPITEL 10 PASCALENHETER, UNITS I TURBO PASCAL 4.0. ***** 

ÖVNING 10.1. 

Skriv en enhet som som innehåller en procedure Namn som tömmer skärmen och skri¬ 
ver ut ditt namn mitt på skärmen. Kalla enheten för MittNamn och testa den med 
hjälp av programmet nedan 

program Utskrift; 
uses MittNamn; 
begin 
Namn; 

end. 


262 




ÖVNING 10.2. 

Skriv en enhet Cirkel som innehåller funktioner som beräknar en cirkels area och 
omkrets. Funktionerna skall deklareras i interfacedelen men implementeras i imp- 
lementationsdelen. Enheten Cirkel skall sedan testas på programmet nedan 

program Matematik; 
uses Cirkel; 
var radie : real; 

begin 

Writeln('Ange cirkelns radie: '); 

Readln(radie); 

Writeln('Arean blir ',Area(radie)); 

Writeln('Omkretsen blir ',Omkrets(radie)); 

end. 

Om du redan i tidigare övningar skrivit funktionerna Area och Omkrets så använd 
möjligheten att kopiera in dessa i enheten Cirkel. Se kapitel 14. 

ÖVNING 10.3. 

Skriv en enhet med en procedur som initierar grafiken enligt programmet Alla- 
kort, exempel 5.19. Kalla enheten för Init. Koppla därefter enheten till prog¬ 
rammet AllaKort och se om det fungerar. 

program AllaKort; 

uses Crt, Graph, Init; 


ÖVNING 10.4. 

Skapa en enhet som innehåller procedurerna i programmet TestAvOrd i avsnitt 8.3 
Program med procedurer. Koppla därefter enheten till huvudprogrammet och kör 
programmet. Kalla enheten Samla. 

program TestAvOrd; 
uses Crt, Samla; 

begin 

Presentera; 

HamtaStrang; 

HamtaTecken; 

while positionOO do begin 
Skrivtlt; 

HamtaT ecken; 

end; 

GotoXY(1,24); 

end. 


ÖVNING 10.5. 

Skapa en katalog för dina enheter, kalla den för minaenh. I denna katalog kan du 
lägga dina enheter. För att kompilatorn sedan skall hitta enheterna i katalogen 
minaenh kan du ange katalogen i menyn Options\Directories\Unit directories. 
Katalogen minaenh skapas med DOS-kommandot, md minaenh. Kopiera därefter enhe¬ 
ten Samla från övningen 10.4. till katalogen minaenh och testkör programmet Tes¬ 
tAvOrd. Kopiering se avsnitt 14.2.1. 
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ÖVNING 10.6. 

Med enheter kan man avgränsa delar i ett program och också skriva program större 
än 64 kb. Vi skall här dela upp programmet Addition, exempel 2.14 i två enheter 
och ett huvudprogram. Detta endast för att träna på kopplingen mellan enheter. 
Den ena enheten skall bara innehålla deklaration av variablerna tall, tal2 och 
sum och döps till Variab. Den andra enheten Ber skall kopplas med Variab, dvs få 
tillgång till variablerna tal1,tal2 och sum. Enheten Ber skall bara innehålla en 
funktion, den som beräknar summan av tall och tal2. Skriv därefter ett huvud¬ 
program som använder funktionen i Ber för att addera två tal. 


***** KAPITEL 11 POSTER. ***** 

ÖVNING 11.1. 

Definiera en posttyp till ett lager som skall innehålla artikelnummer, artikel- 
namn, antal i lager och pris. 

ÖVNNING 11.2. 

Skriv ett program som läser in ett litet lager i en array, som är definierad 
enligt övning 11.1. Därefter skall programmet fråga efter om en fullständig 
lista över samtliga artiklar i lagret skall skrivas ut. Programmet bör byggas 
upp med hjälp av lämpliga underprogram. 

ÖVNING 11.3. 

Skriv till i programmet Klass (sidan 165) ett underprogram som ger möjlighet att 
söka efter en elev och få information om denna elev utskrivet på skärmen. Sök¬ 
ningen skall ske på elevens efternamn. Om flera elever har samma efternamn skall 
samtliga elever med detta efternamn presenteras på skärmen. Om ingen elev finns 
med det sökta efternamnet skall utskriften bli: 

FINNS EJ NÅGON ELEV MED DETTA EFTERNAMN. 

ÖVNING 11.4. 

Skriv ett program som bokför ett litet lager bestående av 30 artiklar. Deklarera 
en posttyp med termerna (fälten) 

artikelnummer 
artikelnamn 
antal i lager 
styckpris 

Följande meny skall erhållas: 

1. Inläsning av 30 artiklar. 

2. Utskrift av samtliga artiklar. 

3. Ändring av antal i lager. 

4. Sökning på visst artikelnummer. 
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ÖVNING 11.5. 

Skriv ett program som kan läsa in två komplexa tal. 

Programmet skall kunna 

a) avgöra om talen är lika. 

b) beräkna deras absolutbelopp. 

c) skriva ut talens konjugat. 

Lämplig postdeklaration: 

komplex = record 

realdel : real; 

imaginardel : real; 
end; 

***** KAPITEL 12 PEKARE. ***** 

ÖVNING 12.1. 

Skriv ett program som läser in ett heltal i en dynamisk variabel. Därefter skall 
värdet som ligger i den dynamiska variabeln skrivas ut på skärmen. 

ÖVNING 12.2. 

Skriv ett program som läser in två heltal i dynamiska variabler och lägger i en 
summan av talen i en dynamisk variabel, sum. Därefter skall resultatet av addi¬ 
tionen läsas från den dynamiska variabeln och skrivas ut på skärmen. 

program Dyn; 

var tall, tal2, sum : 'integer; 


ÖVNING 12.3. 

Skriv ett program som innehåller två pekarvariabler som vardera pekar på en 
vektor där tio heltal kan lagras. Efter inläsning av de tjugo talen skall summan 
av talen skrivas ut på skärmen. 

ÖVNING 12.4. 

Rita en dynamisk variabel som skall innehålla namn, ålder och civilstånd samt en 
pekarvariabel. Deklarera därefter en post för den dynamiska variabeln. 

ÖVNING 12.5. 

Skriv ett program som skapar en enkel länkad lista enligt deklarationen i övning 
12.1. När programmet startar skall följande meny visas 

MENY. 

1. Skapa en enkellänkad lista. 

2. Utskrift av samtliga personer i listan. 

Det är lämpligt att bygga programmet i två underprogram. 
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ÖVNING 12.6. 

Gör ett tillägg till programmet Pekl, sidan 186 så att listan vänds och därefter 
skrivs ut baklänges. Använd proceduren vand nedan. 


procedure Vand; 
var 

p,s,t : postpek; 

begin 

p:=bpek; 
s:=p".pnasta; 
tiss".pnasta; 

while t <> nil do begin 

s".pnasta := p; 

P := s; 
s : = t; 

t := t".pnasta; 

end; 

s*.pnasta := p; 
bpek~.pnasta := nil; 
bpek := s; 

end; 


ÖVNING 12.7. 

Rita boxar som beskriver hur proceduren Vand arbetar! 

ÖVNING 12.8. 

Rita boxar och se om du kan förstå hur proceduren Tabort sidan 193 arbetar. 

ÖVNING 12.9. 

Skriv ett program som registrerar din skivsamling. Skivornas titel, artist och 
samtliga melodier på skivan skall läsas in i en länkad lista. Följande meny 
skall presenteras då programmet startas. 

*** meny'*** 

1. Lägga till skiva i den länkade listan. 

2. Ta bort skiva i den länkade listan. 

3. Söka på skivtitel och få artist och samtliga låtar på skivan. 

4. Söka på artist och få artistens samtliga skivtitlar. 

3. Samtliga skivtitlar i listan presenterat. 

6. AVSLUTA. 

Ange alternativ: 


***** KAPITEL 13 FILHANTERING. ***** 

ÖVNING 13.1. 

Skriv ett program som lagrar tecken på en fil. Kalla filen för TECKEN.DAT. 
Därefter skall det finnas möjlighet att få samtliga tecken som finns lagrade på 
filen utskrivna på skärmen. 

ÖVNING 13.2. 

Skriv ett program som lagrar 10 namn i en array. Låt datorn därefter skriva in 
namnen på en fil med namnet NAMN.DAT om så önskas. 

ÖVNING 13.3. 

Skriv en procedur med en parameter som tar ett filnamn och därefter skapar 
filen. Givetvis bör det först ske en test om filen redan finns så att en gammal 
fil inte raderas. 


266 




ÖVNING 13.4. 

Skriv en procedur med en parameter som tar ett ett filnamn och stänger filen. 
Givetvis bör det först ske en kontroll med IOResult så att filen inte redan är 
stängd. Att göra Close på en redan stängd fil i ver 4.0 medför I/O-Fel, detta 
gäller dock ej ver 3.0. 

{$1-} Close(f); {$1+} 
if I0Result=103 then 

Writeln('Filen inte öppnad, kan inte stänga. '); 


ÖVNING 13.5. 

Skriv en procedur med en parameter som tar ett filnamn och om filen finns så 
öppnas filen. 

ÖVNING 13.6. 

Skriv två underprogram till övningen 12.6 eller 12.7. Ett som lagrar den länkade 
listan och ett som läser in den länkade listan. När programmet startas skall 
data läsas från filen om den innehåller information. 

ÖVNING 13.7. 

Skriv ett program som hanterar information om en aktie. Informationen skall lag¬ 
ras i en länkad lista. Varje post skall innehålla inköpsdatum, sälj- och köpkurs 
vid dagens slut samt högsta och lägsta betalkurs under dagen. Informationen 
skall givetvis lagras på fil. 

Följande meny skall visas: 

******** meny ******** 

1. Lägga till aktie i listan. 

2. Ändra felaktigt värde. 

3. Utskrift av kurser för visst datum. 

4. Avsluta. ( Den länkade listan skrivs på fil.) 

Ange alternativ (1, 2, 3 eller 4): 


Ändring av felaktigt värde enlig punkt 2 skall givetvis även gälla ändringar om 
fel gjordes för flera dagar sedan. Programmet börjar med att läsa in information 
från fil om sådan finns. 

***** KAPITEL 14 ARBETA MED TURBO PASCAL. ***** 

ÖVNING 14.1. 

Skriv in följande text med hjälp av editorn: 

Nå, skruva fiolen, hej, spelman skynda dej! 

Kära syster, hej, svara inte nej, svara ja, så blir vi glada. 

Sätt dej du på stolen och stryk din silversträng! 

Röda stråken släng och med armen sväng; gör ej fiolen skada! 

Spara texten under namnet ETT.TXT. Denna fil kommer därefter att användas i 
senare övningsuppgifter till kapitel 14. 
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ÖVNING 14.2, 


Öva dig att flytta omkring i texten som skapades i övning 14.1. Tänk på att de 
kommandon som redovisas i denna övning förflyttar markören i texten utan att 
förändra den. 


Rad upp: 

Pil upp 
eller 
CTRL-E 

Rad ner: 

Pil ner 
eller 
CTRL-X 


Som du kan se ändras siffran efter Line överst 
fönstret Edit. 


Som du kan se ändras siffran efter Line överst 
fönstret Edit. 


Bokstav höger: 

Pil höger - Som du ser ändras siffran efter Col överst i 

eller fönstret Edit. 

CTRL-D 


Ord höger: 

CTRL-Pil höger - Som du ser ändras siffran efter Col överst i 

eller fönstret Edit. 

CTRL-F 


Bokstav vänster: 


Pil vänster 
eller 
CTRL-S 


- Som du ser ändras siffran efter Col överst i 
fönstret Edit. 


Ord vänster: 

CTRL-Pil vänster - Som du ser ändras siffran efter Col överst i 

eller fönstret Edit. 

CTRL-A 

ÖVNING 14.3. 

Denna övning visar på möjligheterna på att radera text i editorn. 


□va dig att radera med kommandona: 


Delete-tangenten 
eller 
CTRL-G 

Backspace-tangenten. 

CTRL-T 

CTRL-Y 


Raderar bokstav. 


Raderar bokstav. 

Raderar ord till höger om markören. 

Raderar hela raden som markören står på och flyt¬ 
tar därefter upp alla rader under markören ett 
steg. 
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ÖVNING 14.4. 


Denna övning skall visa hur editorn själv kan söka efter ord. För att kunna söka 
i en text måste markören befinna sig i editorn, dvs detta fönster skall vara ak¬ 
tiverat. När du söker efter ett ord kommer datorn att fråga efter om du vill 
söka framåt eller bakåt i texten mm, se avsnitt Söka/byta ut text. Detta är 
relaterat, till var markören befinner sig vid sökandet. Titta efter var din mar¬ 
kör befinner sig på skärmen och tryck därefterpå 

CTRL-Q-F 

Överst står det nu 
F ind: 

skriv dit det ord du vill söka efter och tryck därefter på ENTER-tangenten. 

Nu frågar datorn efter Options, villkor. Se avsnitt Söka/byta ut text. 

Efter det att det sökta ordet hittats i texten kan en ny sökning ske med 
CTRL-L. 

ÖVNING 14.5. 

Denna övningsuppgift skall visa hur lätt det är att byta ut ord i editorn. Skriv 
in texten nedan i editorn. Om du redan har en text i editorn och vill ta bort 
denna text för att skriva in ny text, tömmer du editorn med hjälp av kommandot 
New, som finns under File i huvudmenyn. 

Du är min renaste tröst, Du är mitt fastaste skydd, 
du är det bästa jag har, 
ty intet gör ont som du. 

Nej, intet gör ont som du. 

Du svider som is och eld, 
du skär som ett stål min själ - 
du är det bästa jag har. 

KARIN BOYE. 


Öva på att byta ut ord med kommandot: 

CTRL-Q-A 

Besvara frågan Find, Finn. Dvs ange det ord som du vill byta ut. 

Besvara frågan Replace with, Byt ut. Dvs ange det ord du vill byta till. 
Även här kan du fortsätta byta ut genom att trycka på CTRL-L. 
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ÖVNING 14.6. 


I denna övning skall du kopiera över den text som skapades i övningen 14.1, 
till texten nedan. 

Skriv in nedanstående text med hjälp av editorn. 

Du svettas, stor sak, i brännvin skall du bada, 
ty under detta tak är Bacchi lada. 

Sum sum sum sum sum sum sum sum sum ganska riktigt, 
ditt kall är viktigt båd' för öra, syn och smak. 

Ställ markören under D i Du svettas och tryck därefter på ENTER-tangenten. Som 
du märker flyttas all text ett steg nedåt och överst bildas en tom rad. Sätt 
markören överst i det vänstra hörnet (dvs på den tomma raden) och tryck på 

CTRL-K-R. 

Datorn skriver då 

Read Block from Eile: 

Besvara denna fråga med ETT.TXT under förutsättning att du döpte filen i övni¬ 
ng 14.1 till detta namn och tryck därefter på ENTER-tangenten. Och vips så har 
du första versen på Nå, skruva fiolen, text av Carl Michael Bellman. 

ÖVNING 14.7. 

Denna övning skall visa hur textblock kan flyttas, kopieras eller raderas i edi¬ 
torn. Antag att texten från Nå, skruva fiolen, av Carl Michael Bellman finns i 
editorn. Ett textblock märks ut på så sätt att början och slutet av textblocket 
anges. Antag, att vi vill märka ut första raden i texten 

Nå, skruva fiolen, hej, spelman skynda dej! 

Först skall början av blocket märkas ut. Ställ markören under N i Nå och tryck 
på: 

F7-tangenten eller CTRL-K-B 

Ställ därefter markören efter !-tecknet och tryck på: 

F8-tangenten eller CTRL-K-K 

Nu är meningen märkt. Den märkta meningen har också ändrat färg. 

Flytta eller kopiera märkt textblock. 

Ställer markören på den plats dit du vill flytta eller kopiera det märkta tex¬ 
tblocket . 

CTRL-K-V flyttar det markerade textblocket. 

CTRL-K-C kopiera det markerade textblocket. 

Radera märkt textblock. 

CTRL-K-Y raderar det märkta textblocket. 
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Skriva ut märkt textblock på skrivaren. 

CTRL-K-P skriver ut det märkta textblocket på skrivaren. 

Ta bort märkningen på ett textblock. 

CTRL-K-H tar bort märkning av text. 

ÖVNING 14.8. 

Du skall nu träna på att märka ett textblock och kopiera det till diskett eller 
hårddisk. Plocka in filen ETT. TXT i editorn och märk ett block på t ex tre 
meningar. Tryck därefter på 

CTRL-K-W 

Datorn frågar efter vad den fil skall heta som du skall kopiera det märkta 
blocket till, 

Write Block To File: 

Skriv TVÅ.TXT och tryck på ENTER-tangenten. Titta därefter på filen TVÅ.TXT , 
dvs plocka in den som arbetsfil i editorn. 
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16 Sammanställning av Turbo Pascal - enheterna 

I detta avsnitt skall vi beskriva de konstanter, variabler, procedurer och funk¬ 
tioner som är finns i Turbo Pascal version 4. 

Eftersom dessa identifierare på ett naturligt sätt är sammanförda i Turbo Pasca- 
lenheter, behandlar vi varje enhet för sig. Exempelvis är alla DOS-orienterade 
rutiner samlade i enheten DOS. Skriver man ett program som skall hantera biblio¬ 
teken på en skiva är det ju de DOS-orienterade rutinerna man är intresserad av 
och det är då bättre att ha enbart dessa överskådligt presenterat i en grupp. 

Som vi i tidigare nämnt finns det i Turbo Pascal sju standardenheter. Hur man 
får tillgång till standardenheterna är utförligt beskrivet i kapitlet om Pasca- 
lenheter. Här redovisar vi endast kortfattat vad som ingår i respektive enhet, 
vad identifierarna står för och syntaxen för procedurer och funktioner. 

I det fall då procedurer och funktioner har en parameterlista anger vi hur huvu¬ 
det är deklarerat och inte hur man skall skriva då det används. Vi tycker att 
detta är att föredra då det visar hur rutinen måste anropas, om argumentet måste 
vara en deklarerad variabel som fallet är med var-parametrar eller om det kan 
vara ett uttryck som fallet är med värdeparametrar. 

Vi skriver exempelvis 

Write(var f:text; v:vtyp); 

och menar då att det första argumentet måste vara en tidigare deklarerad varia¬ 
bel av typen text, medan det andra argumentet kan vara en variabel eller ett 
uttryck av typen vtyp. 

I program skriver vi naturligtvis på vanligt sätt t ex 
Write(1st, 'Så här skriver man.'); 

Vi anger för varje identifierare om den är specifik för Turbo Pascal eller inte. 
Om vi inte anger något, anser vi att den överensstämmer med standard Pascal även 
om smärre avvikelser kan förekomma. 

När vi i beskrivningen av rutinerna skriver heltalstyp, avser vi någon av de 
olika heltalstyper som Turbo Pascal håller sig med. Med strängtypen stringtype, 
menar vi en godtycklig strängtyp. 

Beträffande minnesadresseringen används i Turbo Pascal samma konvention som t ex 
i MS-DOS. Datorminnet är uppdelat i ett antal segment som var för sig innehåller 
64 kb minnesceller. Adressen till ett segment anges med en segmentadress, medan 
adressen till en minnescell i ett segment anges med en offset-adress. Den fulls¬ 
tändiga adressen till en minnescell utgörs därför av en segmentadress och en 
offset-adress, där de båda adresserna skrivs i denna ordning åtskilda med ett 
semikolon. Ett talvärde i Pascal kan anges antingen decimalt eller hexadecimalt. 
I det senare fallet föregås talvärdet av tecknet $. 

Exempel på en minnesadress är $0000:$0100, som refererar till minnescellen med 
segmentadressen noll och offsetadressen 256 (decimalt). 

Pekare i Turbo Pascal är av typen pointer och innehåller just adressen till en 
minnescell. 

filer kan vara av olika typer. Vi nämner i kapitlet om filer textfiler som är av 
typen text, och filer för direktaccess som är av typen file of komponenttyp. 
Denna senare typ kallas även för en typad filtyp eftersom alla komponenterna i 
filen utgöres av en och samma datatyp. 


Det.finns ytterligare en tredje filtyp, typen file, som ofta kallas för en oty- 
pad filtyp, eftersom man här inte anger typen på komponenterna i filen. Man kal¬ 
lar också sådana filer för binära filer. 


Karakteristik av Turbo Pascalenheterna. 

Vi ger här en kort karakteristik av varje enhet och beskriver dem mera detalje¬ 
rat sedan. 


System 

Denna enhet innehåller de rutiner som är standard i Turbo Pascal. Detta innebär 
inte att rutinerna är helt i överensstämmelse med standard Pascal som den defi¬ 
nieras av ANSI/IEEE770X3.97-1983, men avvikelserna är inte särskilt betydande. 
Till denna standard har fogats ett antal rutiner som framför allt rör fil- och 
stränghantering liksom ett antal DOS-specifika rutiner. 

Dos 

Denna enhet implementerar ett flertal av de DOS-funktioner som finns i MS-DOS 
och gör det möjligt att från ett Turbo Pascalprogram kommunicera direkt med MS- 
DOS. 


Crt 

I denna enhet finns in- och utmatningsrutiner som är PC-specifika. Med hjälp av 
dessa hanterar man bildskärm, tangentbord och högtalare på ett enkelt sätt. 

Vissa av de rutiner som utgör standardrutiner i version 3 är samlade här. 

Printer 

Det enda denna enhet åstadkommer är att den deklarerar en textvariabel, 1st, som 
knyts till den utskriftsrutin som används vid utskrifter på skrivare. 

Graph 

I denna enhet enhet är alla grafikrutiner samlade. I kapitlet om grafik beskri¬ 
ver vi åtskilliga av dessa rutiner utförligt. 

Graph3 

Denna rutin motsvarar de grafikrutiner som finns i version 3. 

Turbo3 

I denna enhet finns de rutiner som inte längre är standard i version 4. 
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16.1 Enheten System 


System 


16.1.1 Fördeklarerade konstanter. 


Booleska konstanter. 

false : boolean = logiska värdet falskt 

true : boolean = logiska värdet sant 


1alkonstanter. TURBO PASCAL 

maxLonglnt = 2147483647 finns ej i version 3. 

maxlnt = 32767 


16.1.2 Fördeklarerade variabler, 
input 

Deklaration input:text; 

Beskrivning Utgör standardfilen för inmatning. Är normalt kopplad till motsva¬ 
rande funktion i MS-DOS (inmatning från tangentbordet). 

Jämför AssignCrt 

output 

Deklaration output:text; 

Beskrivning Utgör standardfilen för utmatning. Är normalt kopplad till motsva¬ 
rande funktion i MS-DOS (utmatning på skärmen). 

Jämför AssignCrt 

prefixSeg TURBO PASCAL 

Deklaration prefixSegrword; 

Beskrivning Denna variabel innehåller segmentadressen till programmet. Program- 
segmentet utgör en minnesarea med data om programmet och skapas av 
DOS då programmet exekveras. 

heapOrg TURBO PASCAL 

Deklaration heapOrgrpointer; 

Beskrivning Pekar på början av det dynamiska minnesutrymmet. 
heapPtr TURBO PASCAL 

Deklaration heapPtr:pointer; 

Beskrivning Pekar på första lediga minnescell i det dynamiska minnesutrymmet. 
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freePtr 


TURBO PASCAL 


System 


Deklaration freePtr:pointer; 

Beskrivning Pekar på en lista över tidigare använda minnesutrymmen som lämnats 
tillbaka med Dispose. Listan består av en vektor av pekare, där 
varje pekare i listan pekar ett ledigt minnesutrymme. Varje gång 
man begär ett nytt utrymme med New kontrolleras denna lista först 
så att tidigare utnyttjat utrymme i första hand används. 

Observera att Release alltid nollställer denna lista. 

freeMin TURBO PASCAL 


Deklaration freePtr:word; 

Beskrivning Variabeln innehåller värdet av det minsta utrymme som måste finnas 
mellan pekarna heapPtr och freePtr. Variabeln används för att hind¬ 
ra dessa pekare att kollidera med varandra. 


heapError 


TURBO PASCAL 


Deklaration heapError:pointer; 

Beskrivning Denna variabel innehåller adressen till en egen felhanterare för 
fel som inträffar vid dynamisk minnesallokering. 

Exempel heapError : = @HeapFunc; 

Vi ger här ett exempel på hur en sådan felhanterare kan se ut. 

{$E+} function HeapFunc(size:word):integer; {$F-} 
begin 

HeapFunc:=1; { Tvingar New och GetMem att returnera en } 

{ nil-pekare om fel inträffar. } 

end; 


Denna funktion kommer nu alltid att anropas av New och GetMem innan 
något nytt minnesutrymme allokeras. Returvärdet bestämmer vad som 
händer vid minnesallokeringen: Om returvärdet är 

0, så avslutas programmet (kritiskt fel), 

1, så returnerar New och GetMem en nil-pekare, vilket innebär 
att ett fel inträffat, men programmet kan fortsätta, 

2, så betyder detta att minnesallokeringen lyckats. 

Variabeln size i funktionen innehåller efter anropet storleken på 
det block som inte kan allokeras. 


exitProc 


TURBO PASCAL 


Deklaration exitProcrpointer; 

Beskrivning Variabeln innehåller adressen till den exit-procedur som används. 
Exempel Då en egen exit-procedur installeras måste man först spara undan 

adressen till den normala exit-proceduren. Detta görs med satsen 

exitSave:=exitProc; 


där exitSave är en global variabel. Därefter skriver man satsen 
exitProc: = @MyOwnExitProc; 
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System 

vilket medför att då ett program avslutas kommer den egna exit-pro- 
ceduren att användas. Eftersom den normala exit-proceduren stänger 
filer mm, skall denna anropas innan programmet avslutas helt. Detta 
sker enklast inne i funktionskroppen till MyOwnExitProc, vars sista 
sats då blir 

exitProc:=exitSave; 

exitCode TURBO PASCAL 


Deklaration exitCode:integer; 

Beskrivning Variabeln innehåller felkoden för det fel som inträffat. 
errorAddr TURBO PASCAL 


Deklaration 

Beskrivning 

errorAddr:pointer; 

Variabeln pekar på den adress i programmet där felet inträffat. 

0m inget fel inträffat har variabeln värdet nil. 

Har variabeln inte värdet nil kommer på skärmen att skrivas ut ett 
felmeddelande. 0m man i en egen exit-rutin sätter variabeln till 
nil undviker man detta. 

randSeed 

TURBO PASCAL 

Deklaration 

Beskrivning 

randSeed:longint; 

Variabeln innehåller det startvärde som används av slumptalsgenera- 
torn. Genom att tilldela denna variabel ett specifikt värde kommer 
därför Random-funktionen att generera en speciell följd av slump¬ 
tal . 

savelnt 

TURBO PASCAL 

Deklaration 

savelnt00:pointer; 
savelnt02:pointer; 
savelnt23:pointer; 
savelnt24:pointer; 
savelnt73:pointer; 

Beskrivning 

Enheten System utnyttjar vissa avbrott i MS-DOS till egna avbrotts¬ 
rutiner. Innan dessa installeras lagras adressen till gamla inter- 
rupthanterarna i motsvarande pekare ovan. 

fileMode 

TURBO PASCAL 

Deklaration 

Beskrivning 

fileMode:byte; 

Med denna variabel kan man ändra det sätt på vilket typade och 
otypade filer öppnas med proceduren Reset. 

Normalt har variabeln värdet 2, vilket innebär att både läsning och 
skrivning kan ske på filen. 

Datorminnet 

som en vektor. 

mem 

TURBO PASCAL 


Deklaration mem : array[$0000:$0000..$EEEE:$EEEE] of byte; 
Beskrivning 
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Vektorn mem täcker hela minnet. Varje element i vektorn, dvs varje 
minnescell i datorn, refereras till med ett index som är adressen 
till minnescellen. 






Exempel 


memW 


System 

Avläsning av värdet i minnescellen på en viss adress kan göras med 
cellvarde:=mem[$0000:$0100]; 

tilldelningar kan också göras 
mem[$0000:$0100]:=0; 

TURBO PASCAL 


Deklaration memW : array[$0000:$0000..$FFFF:$FFFF] of word; 

Beskrivning Som ovan men varje vektorelement utgör ett heltal av typen word med 
den minst signifikanta byten först. 

Exempel memW[$0000:$0100]:=256; 

Nollställer minnescellen på adress $0000:$0100 och skriver en etta 
i nästa minnescell. 

memL TURBO PASCAL 


Deklaration memL : array[$0000:$0000..$FFFF:$FFFF] of longint; 

Beskrivning Som ovan men varje vektorelement utgör ett heltal av typen longint 
med den minst signifikanta byten först. 

Exempel memW[$0000:$0100]:=256; 

Nollställer minnescellen på adress $0000:$0100, skriver en etta i 
nästa minnescell och nollställer de två nästa. 


Datorportarna som en vektor. 


port 

TURBO PASCAL 


Deklaration 

Beskrivning 

port : array[0..$FFFF] of byte; 

Ger tillgång till processorns dataportar. Varje vektorelement 
varar en dataport. Index är av typen word. 

mots- 

Exempel 

Då ett vektorelement tilldelas ett värde, skrivs värdet till 
varande dataport (0UT) t ex port[l0]:=5; 

mots- 


Då man refererar till ett vektorelement i ett uttryck, läses 
från motsvarande dataport (IN) t ex p:=port[l0]; 

värdet 

portW 

TURBO PASCAL 


Deklaration 

Beskrivning 

portW : array[0..$FFFF] of word; 

Som ovan men varje vektorelement är av typen word. 
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System 

16.1.3 Funktioner och procedurer. 

In- och utmatning för textfiler. 

Read procedur 


Huvud Read(var f:text; var vlrvltyp; var v2:v2typ; var v3:v3typ); 

Beskrivning Läser ett eller flera element eller inget alls från textfilen f 
beroende på hur många variabler som anges . 

Textfilen f behöver inte anges. I så fall förutsätts standardinfi¬ 
len input, dvs inläsning från tangentbordet. 

Datatypen för variablerna kan vara en heltalstyp, av typen real, 
char eller en strängtyp. 

Inläsningen till en variabel sker tecken för tecken och avslutas då 
vagnretur, CR (Eoln), eller filslut, CTRL-Z (Eof), påträffas. 

Vid inläsning till en talvariabel förutsätts en sträng av korrekt 
format. Talsträngen måste följas av ett blanktecken, ett tabulator- 
tecken, CR eller CTRL-Z. 


Readln procedur 


Huvud Readln(var f:text; var vlrvltyp; var v2:v2typ; var v3:v3typ); 

Beskrivning Som Read, men då sista variabeln lästs, ignoreras resten på raden 
till radslut och nästa läsning sker på ny rad. 

Om Readln läser från standardinfilen input ekas filens radslutsmär- 
ke på skärmen dvs där görs vagnretur och frammatning till ny rad. 


Write procedur 


Huvud Write(var f:text; vlrvltyp; v2:v2typ; v3:v3typ); 

Beskrivning Skriver ett eller flera element eller inget alls till textfilen f 
beroende på hur många variabler som anges . 

Textfilen f behöver inte anges. I så fall förutsätts standardutfi- 
len output, vanligtvis skärmen. 

Datatypen för utskriftsparametrarna kan vara en heltalstyp, av 
typen real, boolean, char eller en strängtyp. 

Utskriften kan formateras: 

Vidden (bredden) på utskriftsfältet anges med ett kolon och antal 
tecken omedelbart efter parametern. 

Exempel Write(v1:15) skriver ut värdet av uttrycket vi högerjusterat i ett 

fält på 13 tecken. 

Vid utskrift av booleska uttryck skrivs texten TRUE eller FALSE ut. 
Vid utskrift av flyttal som decimaltal anges antalet decimaler 
efter ett andra kolon. 

Exempel Write(v2:13:3) skriver ut värdet av flyttalsuttrycket vi med fem 

decimaler högerjusterat i ett fält på 15 tecken. 

Writeln procedur 


Huvud 

Beskrivning 

Exempel 


Writeln(var frtext; v1:v1typ; v2:v2typ; v3:v3typ); 

Som Write men vagnretur och radframmatning görs efter utskriften. 
Writeln enbart ger en tom rad. 


SetTextBuf procedur TURBO PASCAL 


Huvud SetTextBuf(var frtext; var buf; sizerword); 

Beskrivning Kopplar en textbuffert, buf, av godtycklig typ till den interna 
filvariabeln f. Den sista parametern, size, avser textbuffertens 
storlek, men behöver inte anges. I så fall antas att storleken är 
SizeOf(buf). SetTextBuf får inte användas på en öppen fil. 
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Aritmetiska funktioner. 


System 


Abs 

f unktion 

Huvud 

Beskrivning 

Abs(x:xtyp):xtyp; 

Returnerar absolutvärdet av argumentet x. lypen xtyp är antingen 
en heltalstyp eller typen real. 

Arctan 

funktion 

Huvud 

Beskrivning 

Arctan(x:real):real; 

Returnerar den vinkel i radianer för vilken tångens är x. 

Cos 

funktion 

Huvud 

Beskrivning 

Cos(x:real):real; 

Returnerar cosinus för x. 

Exp 

funktion 

Huvud 

Beskrivning 

Exp(x:real):real; 

Returnerar e x . 

Frac 

funktion 

Huvud 

Beskrivning 

Frac(x:real):real; 

Returnerar decimaldelen av x, dvs Frac(x)=x-Int(x). 

Int 

funktion TURBO PASCAL 

Huvud 

Beskrivning 

Exempel 

Jämför 

Int(x:real):real; 

Returnerar heltalsdelen av x. Observera! Returvärdet är av typen 
real. 

Int(2.34) = 2. Int(-2.34) - -2. 

Trunc. 

Ln 

funktion 

Huvud 

Beskrivning 

Ln(x:real):real; 

Returnerar e-logaritmen för x. 

Pi 

funktion TURBO PASCAL 

Huvud 

Beskrivning 

Pi:real; 

Returnerar värdet av talet pi. Noggrannheten i värdet beror av om 
man har matematikprocessor eller ej. I version 3 är pi en konstant. 

Sin 

funktion 

Huvud 

Beskrivning 

Sin(xrreal):real; 

Returnerar sinus för x. 

Sqr 

funktion 

Huvud 

Beskrivning 

Sqr(x:xtyp):xtyp; 

Returnerar kvadraten på x. Typen xtyp är antingen en heltalstyp 
eller typen real. 


279 




Sqrt 

System 

funktion 

Huvud 

Beskrivning 

Sqrt(x:real):real; 

Returnerar kvadratroten ur x. 

Skalära funktioner. 

Dec 

procedur TURBO PASCAL 

Huvud 

Beskrivning 

Dec(var x:xtyp; n:heltalstyp); 

Räknar ner variabeln x med n steg. Typen xtyp är en skalär datatyp, 
dock ej real. Man behöver inte ange n, i så fall underförstås att x 
räknas ner ett steg. 

Inc 

procedur TURBO PASCAL 

Huvud 

Beskrivning 

Inc(var x:xtyp; n:heltalstyp); 

Räknar upp variabeln x med n steg. Typen xtyp är en skalär datatyp, 
dock ej real. Man behöver inte ange n, i så fall underförstås att x 
räknas upp ett steg. 

Pred 

funktion 

Huvud 

Beskrivning 

Pred(xrxtyp):xtyp; 

Returnerar det element i datatypen xtyp som föregår elementet x. 
Typen xtyp är en skalär datatyp, dock ej real. 

Succ 

funktion 

Huvud 

Beskrivning 

Succ(x:xtyp):xtyp; 

Returnerar det element i datatypen xtyp som följer efter elemen¬ 
tet x. Typen xtyp är en skalär datatyp, dock ej real. 

Odd 

funktion 

Huvud 

Beskrivning 

0dd(x:longint)rboolean; 

Returnerar true om heltalsuttrycket x är udda, annars returneras 
false. 

T ypkonverteringsrutiner. 

Chr 

funktion 

Huvud 

Beskrivning 

Chr(n:heltalstyp):char; 

Returnerar det ASCII-tecken som har ordningsnumret n. 

Värdet av n måste ligga i intervallet 1..255. 

Ord 

funktion 

Huvud 

Beskrivning 

Exempel 

0rd(x:xtyp):heltalstyp; 

Returnerar det ordningsnummer, som x har i den mängd, som definie¬ 
ras av datatypen xtyp. Denna typ är en skalär datatyp, dock ej 
real. 

0rd( 'A ') ger 65. 
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Round 


funktion 


System 


Huvud 

Beskrivning 

Exempel 


Round(x:real):longint; 

Avrundar flyttalsuttrycket x till närmsta heltal. 
Round(2.5)=3. Round(2.49)=2. Round(-1 .5)=-2. Round(-1.49)=—1. 


Trunc funktion 


Huvud 

Beskrivning 

Exempel 


Trunc(x:real):longint; 

Returnerar heltalsdelen av flyttalsuttrycket x. 
lrunc(2.3)=2. Trunc(-2.3)=-2. 


Strängrutiner. 

Delete procedur TURBO PASCAL 


Huvud Delete(var srstringtype; p,n:integer); 

Beskrivning Erån strängvariabeln s tas bort den delsträng som börjar i position 
p och som är n tecken lång. 

Om p är större än längden av s tas inga tecken bort. 

Om delsträngen endast delvis ligger i s, tas bara de tecken som 
ligger i s bort. 

Om p ligger utanför intervallet 1..255 får man exekveringsfel. 


Insert procedure TURBO PASCAL 


Huvud Insert(del:stringtype; var srstringtype; printeger); 

Beskrivning Stränguttrycket del sätts in i strängvariabeln s med början i posi¬ 
tion p. 

Om p är större än längden av s läggs strängarna ihop, dvs s:=s+del. 
Om den resulterande strängen blir större än 255 tecken avkortas den 
till 255 tecken. 

Om p ligger utanför intervallet 1..255 får man exekveringsfel. 

Str procedure TURBO PASCAL 


Huvud Str(x:xt.yp; var s:stringtype); 

Beskrivning Det numeriska värdet av x lagras i strängvariabeln s som tecken. 
Typen xtyp är antingen en heltalstyp eller typen real. 

Parametern x är en sk Write-parameter, dvs x kan formateras precis 
som parametrarna i en Write-sats. 

Exempel Om x=22 ger Str(x:4,s) som resultat att s=' 22'. 


Val procedure TURBO PASCAL 


Huvud Val(s:stringtype; var xrxtyp; var p:integer); 

Beskrivning Stränguttrycket s konverteras till ett talvärde som lagras i varia¬ 
beln x. Typen xtyp är antingen en heltalstyp eller typen real. 
Stränguttrycket s måste vara acceptabelt skrivet och får t ex inte 
innehålla inledande eller efterföljande blanktecken. 

Om konverteringen lyckas, sätts värdet av p till värdet noll. 

I annat fall sätts kod till den första position i s som är felaktig 
och värdet av x blir odefinierat. 
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Copy 


funktion TURBO PASCAL 


System 


Huvud Copy(s:stringtype; p,n:integer)rstringtype; 

Beskrivning Returnerar den delsträng av stränguttrycket s som börjar i position 
p och som är n tecken lång. 

Om p är större än längden av s returneras en tom sträng. 

Om man försöker hämta tecken som ligger utanför s returneras en¬ 
dast de tecken som ligger inom s. 

Om p ligger utanför intervallet 1..255 får man exekveringsfel. 
Concat funktion TURBO PASCAL 


Huvud Concat (si ,s2,. . smstringtype) :stringtype; 

Beskrivning Returnerar en sträng som är sammanslagningen av stränguttrycken 

s1,s2,..,sn. I stället Concat kan man använda ett vanligt plusteck¬ 
en . 


Exempel Concat('TURBO 'PASCAL') returnerar 'TURBO PASCAL'. 

'TURBO '+'PASCAL ' returnerar 'TURBO PASCAL'. 


Length funktion TURBO PASCAL 


Huvud Length(s:stringtype):integer; 

Beskrivning Returnerar längden av stränguttrycket s. 

Pos funktion TURBO PASCAL 


Huvud Pos(del ,s:stringtype):integer; 

Beskrivning Returnerar den första position i stränguttrycket s som delsträngen 
del förekommer. 

Om delsträngen del inte förekommer i s, returneras värdet noll. 


Filrelaterade rutiner. 

Append procedur TURBO PASCAL 


Huvud Append(var f:text); 

Beskrivning Den textfil, som filvariabeln f är knuten till, öppnas och filpeka¬ 
ren flyttas till slutet filen. Härigenom kan man nu fortsätta att 
skriva på filen. 


Assign procedur TURBO PASCAL 


Huvud Assign(var f:fi1typ; s:stringtype); 

Beskrivning Filvariabeln f knyts till den externa, yttre, filen med namnet s. 

Namnet kan representera en fysisk diskfil (med path, biblioteksväg) 
eller en logisk enhet t ex standardutfilen output. 

Alla vidare operationer på filvariabeln f kommer att utföras på den 
externa filen s. 

Filtypen filtyp är en godtycklig filtyp. 


Exempel Assign(minfil, 'A:TAL.REC '); 
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BlockRead procedur TURBO PASCAL 

Huvud BlockRead( var f:file; var dest:desttyp; n:word); 

Beskrivning Filvariabeln f representerar en sk otypad fil för direktaccess. 

Heltalsuttrycket n bestämmer hur många block om 128 byte som över¬ 
förs från den externa filen till variabeln dest, som är av godtyck¬ 
lig typ. Blockstorleken kan bestämmas då filen öppnas. 

Läsningen från filen börjar där filpekaren står. Efter en läsning 
flyttas filpekaren fram motsvarande stycke. 

Huvud BlockRead( var f :file; 

var dest:desttyp; 

n :word; 
var r :word); 

Beskrivning Som ovan men här lagras antalet block som verkligen överförts i 
variabeln r, så att man kan kontrollera att man har fått vad man 


BlockWrite procedur TURBO PASCAL 

Huvud BlockWrite( var f:file; var source:sourcetyp; n:word); 

Beskrivning Filvariabeln f representerar en sk otypad fil för direktaccess. 

Heltalsuttrycket n bestämmer hur många block om 128 byte som över¬ 
förs från variabeln source, av godtycklig typ, till den externa 
filen. Blockstorleken kan bestämmas då filen öppnas. 

Skrivningen till filen börjar där filpekaren står. Efter en skriv¬ 
ning flyttas filpekaren fram motsvarande stycke. 

Huvud BlockWrite(var f :file; 

var source:sourcetyp; 

n :word; 

var r :word); 

Beskrivning Som ovan men här lagras antalet block som verkligen överförts i 
variabeln r och kan då användas för kontroll. 

Close procedur TURBO PASCAL 

Huvud Close(var f:filtyp); 

Beskrivning Stänger den externa fil som är knuten till filvariabeln f och 

uppdaterar biblioteket. Filtypen filtyp är en godtycklig filtyp. 

Eof funktion 

Huvud Eof(var f:filtyp):boolean; 

Beskrivning Returnerar true om filpekaren pekar på slutet av filen (på fils- 
lutsmärket CTRL-Z vid textfiler), dvs efter sista komponenten i 
filen, annars returneras false. Filtypen filtyp är en godtycklig 
filtyp. 

Vid Eof utan filparameter förutsätts standardinfilen input som van¬ 
ligtvis utgöres av CON, tangentbordet. 

Eoln funktion 

Huvud Eoln(var f:text):boolean; 

Beskrivning Returnerar true om filpekaren pekar på slutet av raden, dvs tecknet 
CR i radslutsmarkeringen CR/LE, annars returneras false. 

Om Eof(f) returnerar true, så returnerar Eoln(f) också true. 
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Erase procedur TURBO PASCAL 

Huvud Erase(var f:fi1typ); 

Beskrivning Raderar den externa fil som är knuten till filvariabeln f. 

Filtypen filtyp är en godtycklig filtyp. 

Innan man raderar en fil måste man ha stängt den med Close. 

FilePos funktion TURBO PASCAL 

Huvud FilePos(var f:filtyp):longint; 

Beskrivning Returnerar filpekarens position som ett heltal, dvs ordningsnumret 
för det element i filen som filpekaren pekar på. Det första elemen¬ 
tet har nummer noll. 

Kan ej användas på en textfil. 


FileSize funktion TURBO PASCAL 

Huvud FileSize(var f:filtyp):longint; 

Beskrivning Returnerar antalet komponenter, element, i filen som ett heltal. 

Kan ej användas på en textfil. 

Flush procedur TURBO PASCAL 

Huvud Flush(var f:text); 

Beskrivning Skriver den interna filbufferten till den externa fil som är knuten 
till filvariabeln f, varvid filbufferten töms. 

IOResult funktion TURBO PASCAL 

Huvud IOResult:heltalstyp; 

Beskrivning Returnerar resultatet, koden, för den senaste 1/O-operationen. 


För att funktionen skall fungera måste man ha stängt av kontrollen 
av I/O-fel med kompileringsdirektivet (*$I-*). 

Alla returvärden utom returvärdet noll innebär att ett I/O-fel har 
inträffat och inga ytterligare I/O-operationer kan göras förrän 
IOResult anropats. 

Read procedur 

Huvud Read(var f:filtyp; var vi,v3,v3:vtyp); 

Beskrivning Läser en eller flera variabler från den externa fil som är knuten 
till filvariabeln f. Vid varje läsning flyttas filpekaren fram 
till nästa filkomponent. 

Filtypen är en typad filtyp. 

Rename procedur TURBO PASCAL 

Huvud Rename(var frfiltyp; srstringtype); 

Beskrivning Ändrar namnet på den externa fil som är knuten till filvariabeln f 
till namnet s och uppdaterar biblioteket. 

Rename får inte användas på en öppen fil. 

Reset procedur 

Huvud Reset(var f:filtyp); 

Beskrivning Den externa fil som är knuten till fil variabeln f görs klar för 
skrivning/läsning och filpekaren ställs till början på filen. 

Om den externa filen inte finns fås I/O-fel. 
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Huvud Reset(var f:file; size:word); 

Beskrivning Vid otypade filer kan man ange blockstorleken som skall användas 
vid skrivning/läsning på filen. Anges ingen blockstorlek då en 
otypad fil öppnas blir blockstorleken 128 byte. 

Rewrite procedur 

Huvud Rewrite(var f:filtyp); 

Beskrivning Den externa fil som är knuten till fil variabeln f skapas på ski- 
venheten och filpekaren ställs till början på filen. 

Om filvariabeln f knutits till en extern fil som redan finns kommer 
denna fil att raderas. 

Huvud Rewrite(var fjfilej size:word); 

Beskrivning Vid otypade filer kan man ange blockstorleken som skall användas 

vid skrivning/läsning på filen. Anges ingen blockstorlek då en oty¬ 
pad fil öppnas blir blockstorleken 128 byte. 

Seek procedur TURBO PASCAL 

Huvud Seek(var f:filtyp; nrlongint); 

Beskrivning Flyttar fram filpekaren till n:te elementet i filen. 

Kan ej användas på en textfil. 

Exempel Seek( f ,FileSize( f).) ställer filpekaren till slutet av filen varige¬ 

nom filen expanderas om nya element skrivs till filen. 

SeekEof funktion TURBO PASCAL 

Huvud SeekEof (var f:text):boolean; 

Beskrivning Samma som Eof men hoppar över blanktecken, tabulatortecken och 
Exempel radslutsmarkeringar innan test på filslut görs. Om man inte anger 

filvariabel förutsätts standardfilen input. 

Jämför Eof. 

SeekEoln funktion TURBO PASCAL 

Huvud SeekEoiri(var f:text):boolean; 

Beskrivning Samma som Eoln men hoppar över blanktecken och tabulatortecken 
Exempel innan test på radslut görs. 

Iruncate procedur TURBO PASCAL 

Huvud Truncate(var f:filtyp); 

Beskrivning Trunkerar filen vid filpekarens position, dvs 'hugger av' efterföl¬ 
jande komponenter i filen. Filtypen är en godtycklig filtyp. 

Write procedur 

Huvud Write( var f:filtyp; var vi,v3,v3:vtyp); 

Beskrivning Skriver en eller flera variabler till den externa fil som är knuten 
till filvariabeln f. Vid varje skrivning flyttas filpekaren fram 
till nästa filkomponent. 

Filtypen är en typad filtyp. 
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Biblioteksrutiner. 

ChDir procedur TURBO PASCAL 


Huvud ChDir(s:stringtype); 

Beskrivning Ändrar aktuellt bibliotek till den väg (path) som anges i sträng¬ 
uttrycket s. 

Ändrar även aktuell skivenhet om detta anges i uttrycket s. 

Exempel ChDir( 'B:PROG '); ändrar aktuellt bibliotek till biblioteket PROG på 

skivenheten B:. Aktuell skivenhet blir skivenheten B:. 


GetDir funktion TURBO PASCAL 


Huvud GetDir(drive:heltalstyp; var srstringtype); 

Beskrivning I strängvariabeln s lagras namnet av aktuellt bibliotek på den ski¬ 
venhet som anges av heltalsuttrycket drive enligt följande: 
drive=0 anger aktuell skivenhet, drive=1 anger skivenhet A:, 
drive=2 anger skivenhet B: etc. 

MkDir procedur TURBO PASCAL 


Huvud MkDir(srstringtype); 

Beskrivning Skapar ett underbibliotek enligt den väg (path) som anges i sträng¬ 
uttrycket s. 

Namnet på det nya biblioteket får inte 'kollidera' med annat namn 
i huvudbiblioteket. 


RmDir funktion TURBO PASCAL 


Huvud RmDir(s:stringtype); 

Beskrivning Raderar det underbibliotek som anges i stränguttrycket s. 

Man kan inte radera ett icke-tomt bibliotek, inte heller ett bib¬ 
liotek som är aktuellt bibliotek. 


Pekarorienterade rutiner. 
Dispose procedur 


Huvud Dispose(var prpointer); 

Beskrivning Återlämnar till det fria dynamiska minnet det minnesutrymme som den 
dynamiska variabeln som p pekar på upptar. Efter Dispose blir vär¬ 
det p odefinierat. 

Används tillsammans med New. 


FreeMem procedur TURBO PASCAL 


Huvud FreeMem(var prpointer; n:word); 

Beskrivning Återlämnar ett helt block till det fria dynamiska minnet. Blockets 
början anges av p och blockets storlek är n bytes (minnesceller). 
Blockstorleken n måste överensstämma med vad som har allokerats med 
GetMem. 

Efter FreeMem blir värdet av p odefinierat. 
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GetMero 


procedur TURBO PASCAL 


System 


Huvud GetMem(var p:pointer; n:word); 

Beskrivning Reserverar ett helt block från det fria dynamiska minnet. Blockets 
början anges av p och blockets storlek är n bytes (minnesceller). 
Används tillsammans med FreeMem. 

Innan GetMem används bör man kontrollera att tillräckligt mycket 
minne finns, se MaxAvail, i annat fall riskerar man run-time fel. 

Mark procedur TURBO PASCAL 


Huvud Mark(var p:pointer); 

Beskrivning Ställer p till att peka på början av det fria dynamiska minnet. 

Denna pekare kan sedan användas som argument till Release. 


MaxAvail funktion TURBO PASCAL 


Huvud MaxAvail:longint; 

Beskrivning Returnerar storleken, dvs antalet minnesceller, av det största sam¬ 
manhängande utrymmet av det fria dynamiska minnet. I version 3 
returneras antalet paragrafer. En paragraf är 16 minnesceller. 


MemAvail funktion TURBO PASCAL 


Huvud MemAvail:longint; 

Beskrivning Returnerar storleken av det fria dynamiska minnet. Returvärdet 
anges som ett heltal. Jämför MaxAvail. 

New procedur 


Huvud New(var p:pointer); 

Beskrivning Reserverar av det fria dynamiska minnet minnesutrymme till den 
dynamiska variabel, som p pekar på. 

Används tillsammans med Dispose. 

Ofs funktion TURBO PASCAL 


Huvud Ofs(p":pointer):word; 

Beskrivning Returnerar offsetadressen till den dynamiska variabel som p pekar 
på. Jämför Adressrutiner. 

Ptr funktion TURBO PASCAL 


Huvud Ptr(offset,segment:word):pointer; 

Beskrivning Konverterar minnesadressen segment:offset till ett pekarvärde, som 
sedan kan tilldelas en godtycklig pekarvariabel. 


Release procedur TURBO PASCAL 


Huvud Release(var p:pointer); 

Beskrivning Återlämnar till det fria dynamiska minnet hela det block, vars bör¬ 
jan p pekar på och som reserverats till den dynamiska variabel som 
p pekar på och alla dynamiska variabler därefter. 

Används tillsammans med Mark. 

Seg funktion TURBO PASCAL 


Huvud Seg(p~:pointer):word; 

Beskrivning Returnerar segmentadressen till den dynamiska variabel som p pekar 
på. Jämför Adressrutiner. 
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Adressrutiner. 


System 


Addr funktion TURBO PASCAL 


Huvud 

Beskrivning 


Exempel 


Addr(var v:vtyp):pointer; 

Returnerar adressen till variabeln v. Typen vtyp är en godtycklig 
datatyp. 

I stället för Addr kan man använda E-operatorn. 

Addr(Rita) ger adressen till (den egna) Rita-proceduren. 
Addr(rec.falt.2) ger adressen till fältvariabeln falt2 som är defi¬ 
nierad i recordvariabeln rec. 


Cseg 


funktion TURBO PASCAL 


Huvud Cseg:word; 

Beskrivning Returnerar basadressen till det segment som innehåller programko¬ 
den, dvs det segment från vilket Cseg anropas. 

Dseg funktion TURBO PASCAL 


Huvud Dseg:word; 

Beskrivning Returnerar segmentadressen till datasegmentet. 
Gfs funktion TURBO PASCAL 


Huvud 

Beskrivning 


Exempel 


Seg 


Ofs(var v:vtyp):word; 

Returnerar offsetadressen till variabeln v. Typen vtyp är en god¬ 
tycklig datatyp. 

Ofs(Rita) ger offsetadressen till (den egna) Rita-proceduren. 
0fs(a[5]) ger offsetadressen till det femte elementet i vektorn a. 

funktion TURBO PASCAL 


Huvud Seg(var v:vtyp):word; 

Beskrivning Returnerar segmentadressen till variabeln v. Typen vtyp är en god¬ 
tycklig datatyp. 

Exempel Seg(Rita) ger segmentadressen till (den egna) Rita-proceduren. 

Seg(a[5j) ger segmentadressen till det. femte elementet i vektorn a. 

SPtr funktion TURBO PASCAL 


Huvud SPtr:word; 

Beskrivning Returnerar den aktuella offset-adressen för stackpekaren (SP). 
Sseg funktion TURBO PASCAL 


Huvud Sseg:word; 

Beskrivning Returnerar segmentadressen till stacksegmentet. 


Lågnivårutiner. 

FillChar procedur TURBO PASCAL 


Huvud FillChar(var dest:desttyp; n:word; v:vtyp); 

Beskrivning Fyller en minnesarea med ett givet värde v. Minnesarean börjar där 
variabeln dest lagrats och består av n bytes. Typen vtyp är skalär 
datatyp dock ej real. 
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Observera 


System 

Med denna instruktion är det. mycket lätt att skriva över andra 
variabler! 

Exempel FillChar(dest,SizeOf(dest), 'A'); 

fyller hela variabeln dest med tecknet 'A'. 

Hi procedur TURBO PASCAL 


Huvud Hi {m hel talstyp): byte 

Beskrivning Returnerar värdet n div 256. Typen heltalstyp är antingen integer 
eller word. 

Lo funktion TORBO PASCAL 


Huvud Lo(n:heltalstyp):byte; 

Beskrivning Returnerar värdet n mod 256. lypen heltalstyp är antingen integer 
eller word. 

Move procedur TURBO PASCAL 


Huvud 

Beskrivning 

Observera 

Exempel 


Move(var source:sourcetyp; var dest:desttyp; n:word); 

Kopierar n bytes från den minnesarea som börjar där source ligger 
lagrad till den minnesarea som börjar där dest ligger lagrad. 

Med denna instruktion är det mycket lätt att skriva över andra 
variabler! Använd alltid samma typ på source och dest! 

Move(source, dest,S.izeOf(source)); kopierar source till dest. 


SizeOf funktion TURBO PASCAL 


Huvud SizeOf(var v:vtyp):word; 

Beskrivning Returnerar det anta] bytes som variabeln v upptar. Typen vtyp är en 
godtycklig datatyp. 

Swap funktion TURBO PASCAL 


Huvud Swap(n:heltalstyp):heltalstyp; 

Beskrivning Returnerar ett heltal där den låga och höga byten bytts, dvs värdet 
(n div 256) + 256*(n mod 256). Typen heltalstyp är antingen integer 
eller word. 


Andra allmänna rutiner. 

Exit procedur TURBO PASCAL 


Huvud Exit; 

Beskrivning Gör uthopp ur aktuellt block. Om Exit exekveras i huvudprogrammet, 
avslutas programmet. Om det exekveras i ett underprogram (procedur 
eller funktion) avslutas underprogrammet och programexekveringen 
fortsätter i det överordnade programmet. 

Halt procedur TORBO PASCAL 


Huvud Halt(n:word); 

Beskrivning Avslutar en programkörning och återvänder till DOS. 

Parametern n förs ut från det avslutade programmet och kan sedan 
från DOS undersökas med MS-DOS funktion 4D (hexadecimalt). Man 
behöver inte ange någon parameter, Halt är likvärdigt med Halt(O). 


289 








ParamCount funktion TURBO PASCAL 


System 


Huvud ParamCount:word; 

Beskrivning Returnerar antalet parametrar som ligger i kommandoradsbufferten, 
dvs det antal parametrar som programmet anropats med. 

Blanktecken och tabulatortecken fungerar som åtskiljare mellan 
parametrarna. 


ParamStr funktion TURBO PASCAL 


Huvud ParamStr(n:word)rstringtype; 

Beskrivning Returnerar den n:te parametern från kommandoradsbufferten, se ovan. 
Random funktion TURBO PASCAL 


Huvud Random:real; 

Beskrivning Returnerar ett slumpmässigt flyttal i intervallet 0 <= slumptal < 1 


Huvud Random(n:word):integer 

Beskrivning Returnerar ett slumpmässigt heltal i intervallet 0 <= slumptal < n 


Randomize 

procedur 

TURBO PASCAL 


Huvud 

Beskrivning 

Jämför 

Randomize: 
Initierar 
randSeed. 

slumptalsgeneratorn med ett slumpmässigt värde. 


Upcase 

funktion 

TURBO PASCAL 



Huvud 

Beskrivning 

Observera 


UpCase(s:char):char; 

Returnerar bokstaven s som stor bokstav. Om ingen motsvarande stor 
bokstav finns returneras s. 

Funktionen fungerar endast på bokstäver i intervallet a..z. De 
svenska tecknen å, ä och ö översätts därför inte. 
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16.2 Enheten Crt 


Crt 


16.2.1 Fördeklarerade konstanter. 


Textmodkonstanter. TURBO PASCAL 

BW40 = 0 Svartvit text, 40x25 tecken, kräver kort för färg. 

C040 = 1 Text i färg, 40x25 tecken, kräver kort för färg. 

BW80 = 2 Svartvit text, 80x25 tecken, kräver kort för färg. 

C080 = 3 Text i färg, 80x25 tecken, kräver kort för färg. 

mono = 7 Svartvit text, 80x25 tecken, kräver monokromkort. 

font8x8 = 256 Denna konstant kan adderas till modkonstanterna ovan, då man 

väljer en textmod. På EGA- och VGA-skärmar får man då 43 
rader på skärmen. 

C40 = C040 Dessa två konstanter är deklarerade enbart för åstadkomma 

C80 = C080 kompatibilitet med version 3. 

Färgkonstanter. TURBO PASCAL 

Bakgrunds- och förgrundsfärger Förgrundsfärger 

black =0 darkgray =8 

blue =1 lightblue =9 

green =2 lightgreen =10 

cyan =3 lightcyan =11 

red =4 lightred =12 

magenta =5 lightmagenta =13 

brown =6 yellow =14 

lightgray =7 white =15 

blink =128 

Till färgkonstanterna hör också den additiva konstanten blink, som 

kan adderas till färgvärdena ovan då man väljer en färg. Texten kommer då att 

blinka. 


16.2.1 Tördeklarerade variabler. 
checkBreak TURBO PASCAL 

Deklaration checkBreak:boolean; 

Beskrivning Med denna variabel kopplar man på/av kontrollen av CTRL-BREAK. När 
checkBreak har värdet true, avbryts programmet vid nästa skrivning 
till skärmen då CTRL-BREAK tryckts ner. Standardvärdet för check¬ 
Break är true. 0m checkBreak har värdet false har CTRL-BREAK ingen 
effekt och programmen exekverar snabbare. 

checkEof TURBO PASCAL 


Deklaration checkEoftboolean; 

Beskrivning När denna variabel har värdet true, genereras ett filslutsmärke då 
man trycker CTRL-Z vid läsning från en fil som knutits till skär¬ 
men. Standardvärdet för checkEof är false och CTRL-Z har då ingen 
effekt. 0m Checkeof har värdet true exekverar programmen långsamma¬ 
re . 

Jämför AssignCrt. 
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checkSnow TURBO PASCAL 

Deklaration checkSnow:boolean; 

Beskrivning Då denna variabel har värdet true sker skrivningarna till skärmen 
på ett sådant sätt att en snöig bild förhindras, vilket annars kan 
bli fallet för äldre CGA-kort. Variabeln tilldelas automatiskt vär¬ 
det true då en färgmod väljs in. Om checkSnow har värdet false sker 
skrivningarna till skärmen snabbare. 

Jämför TextMode. 

directVideo TURBO PASCAL 

Deklaration directVideo:boolean; 

Beskrivning När variabeln har värdet true sker skrivningarna till skärmen 

direkt till bildminnet. I annat fall görs skrivningar till skärmen 
genom normala anrop till rutiner i MS-DOS, vilket tar avsevärt 
längre tid. Standardvärdet för directVideo är true. 

lastMode TURBO PASCAL 

Deklaration lastModerword; 

Beskrivning Med denna variabel har man möjlighet att avläsa värdet av den text¬ 
mod som är aktiv. 

Exempel Innan man själv väljer en textmod, avläses den aktuella textmoden 

med mode:=lastMode; 

En återgång till ursprunglig mod görs då enkelt med TextMode(mode); 

savelntlB TURBO PASCAL 

Deklaration savelntlBipointer; 

Beskrivning Enheten Crt använder interrupt $1B och sparar därför först undan 
adressen till den gamla avbrottsrutinen i pekaren savelntlB. 

textAttr TURBO PASCAL 

Deklaration textAttr:byte; 

Beskrivning Valet av aktuell textfärg och bakgrundsfärg lagras i variabeln 
textAttr enligt textAttr:=textfärg+16*bakgrundsfärg. 

Exempel Med tilldelningen textAttr:=red+16*white+blink; 

har man valt röd blinkande text på vit bakgrundsfärg. 

windMax TURBO PASCAL 

Deklaration windMax:word; 

Beskrivning I denna variabel lagras koordinaterna för det nedre högra hörnet av 
ett textfönster. Koordinaterna erhålles genom 
x:=Lo(windMax); 
y:=Hi(windMax); 

windMin TURBO PASCAL 

Deklaration windMin:word; 

Beskrivning I denna variabel lagras koordinaterna för det övre vänstra hörnet 
av ett textfönster. Koordinaterna erhålles genom 
x:=Lo(windMin); 
y:=Hi(windMin); 
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16.2.3 Funktioner och procedurer. 

AssignCrt procedur TURBO PASCAL 


Huvud AssignCrt(var f:text); 

Beskrivning Knyter en fil till de speciella och snabba in- och utmatningsruti- 
ner som finns i enheten Crt. Fungerar precis som Assign för övrigt. 

ClrEol procedur TURBO PASCAL 


Huvud ClrEol; 

Beskrivning Raderar alla tecken på raden från markören till radens slut i 
aktuellt textfönster. 

Markörens placering påverkas ej. 

ClrScr procedur TURBO PASCAL 


Huvud ClrScr; 

Beskrivning Raderar det aktuella textfönstret. Markören placeras i fönstrets 
övre vänstra hörn. 

DelLine procedur TURBO PASCAL 


Huvud DelLine; 

Beskrivning Raderar raden som markören står på och flyttar upp alla efterföl¬ 
jande rader en rad. 

Delay procedur TURBO PASCAL 


Huvud Delay(nrword); 

Beskrivning Väntar n millisekunder i en fördröjningsloop. 
GotoXY procedur TURBO PASCAL 


Huvud GotoXY(k,r:byte); 

Beskrivning Flyttar markören till kolumn k och rad r på skärmen. Koordinaterna 
för skärmens övre vänstra hörn är (1,1). 

HighVideo procedur TURBO PASCAL 


Huvud HighVideo; 

Beskrivning Efter denna instruktion skrivs alla tecken på skärmen som ljusa 
tecken. Om en färgmod är aktiv kommer texten att skrivas ut med 
motsvarande färg bland de ljusa färgerna. 

Jämför LowVideo, NormVideo. 


InsLine procedur TURBO PASCAL 


Huvud InsLine; 

Beskrivning Sätter in en tom rad på den plats som markören är placerad. Efter¬ 
följande rader flyttas ner ett steg. 

KeyPressed funktion TURBO PASCAL 


Huvud KeyPressedrboolean; 

Beskrivning Returnerar true om en tangent har tryckts ner, annars false. 

Den tangent, som tryckts ner, kan avläsas med ReadKey. 

I Turbo Pascal version 3 måste man ge kompileringsdirektivet {$C—} 
för att rutinen skall fungera ordentligt. 

Jämför ReadKey. 
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LowVideo 


procedur TURBO PASCAL 


Crt 


Huvud LowVideo; 

Beskrivning Efter denna instruktion skrivs alla tecken på skärmen med låg in¬ 

tensitet. Om en färgmod är aktiv så väljs en motsvarande färg bland 
de mörka färgerna. 

Jämför HighVideo, NormVideo. 

NormVideo procedur TURBO PASCAL 


Huvud NormVideo; 

Beskrivning Efter denna instruktion skrivs alla tecken på skärmen i den ursp¬ 
rungliga textintensiteten. 

Jämför HighVideo, LowVideo. 

NoSound procedur TURBO PASCAL 

Huvud NoSound; 

Beskrivning Stänger av högtalaren. 

ReadKey funktion TURBO PASCAL 

Huvud ReadKey :char; 

Beskrivning Funktionen returnerar ett tecken som lästs från tangentbordet. 

Tecknet ekas inte på skärmen. Om en tangent tryckts ner returneras 
tecknet omedelbart, annars väntar ReadKey på att en tangent skall 
tryckas ner. 

Jämför KeyPressed. Se även checkBreak. 

TextBackground procedur TURBO PASCAL 
Huvud TextBackground(color:byte); 

Beskrivning Sätter bottenfärgen som texten skrivs på till färgen color, som har 
ett färgvärde i intervallet 0..7. 

TextColor procedur TURBO PASCAL 

Huvud TextColor(color:byte); 

Beskrivning Bestämmer den färg som texten skall skrivas med. Färgen color lig¬ 
ger i intervallet 0. .15. 

TextMode procedur TURBO PASCAL 

Huvud TextMode(n:word); 

Beskrivning Väljer in önskad textmod och tömmer samtidigt skärmen. 

Exempel TextMode(O); ger svartvit text med 40 tecken. 

TextMode(C040); text i färg med 40 tecken. 

TextMode(2); svartvit text med 80 tecken. 

TextMode(3+256); text i färg med 80 tecken och ev 43 rader. 

Sound procedur TURBO PASCAL 

Huvud Sound(n:word); 

Beskrivning Aktiverar högtalaren som avger en ton med frekvensen n Hz. 
Högtalaren är på tills den stängs av med NoSound. 
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Window 


procedur TURBO PASCAL 


Crt 


Huvud Window(xl,yl,x2,y2:byte); 

Beskrivning Definierar ett textfönster som alla textutskrifter är begränsade 

till och fungerar precis som en förminskad skärm med radframmatning 
etc. 

Fönstret utgöres av en rektangel med övre vänstra hörnet i punkten 
(x1,yl) och nedre högra hörnet i punkten (x2,y2). 

WhereX funktion TURBO PASCAL 

Huvud WhereX:byte; 

Beskrivning Returnerar markörens kolumnposition i aktuellt fönster. 

WhereY funktion TURBO PASCAL 

Huvud WhereY:byte; 

Beskrivning Returnerar markörens radposition i aktuellt fönster. 
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16.3 Enheten Dos 

16.3.1 Fördeklarerade konstanter. 

Flaggregisterkonstanter TURBO PASCAL 

fCarry 
fParity 
fAuxiliary 
FZero 
fSign 
fOverFlow 

Filstatuskonstanter TURBO PASCAL 
fmClosed = $D7B0; Filen är stängd. 

fmlnput = $D7B1; Enbart sekventiell läsning kan göras på filen. 

fmOutput = $D7B2; Enbart sekventiell skrivning kan göras till 

filen. 

fmlnOut = $D7B3; Både läsning från och skrivning till filen är 

tillåtet, direktaccess. 

Jämför variabeln fileMode i enheten System. 

Filattributkonstanter TURBO PASCAL 

readOnly 
hidden 
sysFile 
volumelD 
directory 
archive 
anyfile 


16.3.2 Fördeklarerade typer. 

dateTime TURBO PASCAL 

Deklaration dateTime = record 

year,month,day,hour,min,sec:word; 

end; 

Beskrivning Denna typ används av PackTime och UnPackTime. 

fileRec TURBO PASCAL 

Deklaration fileRec = record 
handle, 
mode, 

recSize : word; 
private : array[l 
userData: array[l 
name : array[0 
end; 

Beskrivning Används vid typade och otypade filer. 


..26] of byte; 
..16] of byte; 
..79] of char; 


Konstanterna motsvarar filattributen i MS-DOS. 
Se MS-DOS manual. 

Som framgår av tabellen är konstanterna additi- 
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register 


TURBO PASCAL 


Dos 


Deklaration 

register = record 
case integer of 

0: (AX,BX,CX,DX,BP, 
1: (AL,AH,BL,BH,CL, 

end; 

SI,DI,DS,ES,Flags:word); 

CH,DL,DH:byte); 

Beskrivning 

Definitionen av registe 
ant del. Detta innebär 
Fälten i typen register 

rtypen ges i form en record med en sk vari- 
att de olika delarna överlappar varandra, 
motsvarar processorns olika register. 

Exempel 

Antag att vi har deklar 

erat en variabel 


var regs:register; 


Jämför 

Vi refererar då till registret AX med regs.AX, 
till registret AL med regs.AL. 

Intr, MsDos 

searchRec 

TURBO PASCAL 


Deklaration 

searchrec = record 

fill : array[ 1 .. 21 ] of byte; 
attr : byte; 
time, 

size : longint; 
name : string[l2]; 
end; 

Beskrivning 

Denna typ används av Fi 

ndFirst och FindNext. 

textBuf 

TURBO PASCAL 


Deklaration 

textBuf : array[0.127] 

of char; 

Beskrivning 

Används vid deklarationen av textRec. 

textRec 

TURBO PASCAL 



Deklaration textRec = record 
handle, 
mode, 
bufSize, 
private, 
bufPos, 

bufEnd : word; 

bufPtr : "textBuf; 

openFunc, 
inOutF unc, 
flushFunc, 

closeFunc : pointer; 

userData : array[1..16] of byte; 

name : array[0..79] of char; 

buffer r textBuf; 

end; 

Beskrivning Används vid textfiler. 
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16.3.3 Fördeklarerade variabler. 
dosError TURBO PASCAL 


Deklaration dosError:integer; 

Beskrivning Variabeln innehåller felkoden för felet. 


16.3.4 Eördeklarerade funktioner och procedurer. 
DiskEree funktion TURBO PASCAL 


Deklaration DiskFree(drive:word):longint; 

Beskrivning Funktionen returnerar storleken av ledigt utrymme i byte på den 
skivenhet som anges av heltalsuttrycket drive. 

Värdet av drive har följande betydelse 

0 : aktuell skivenhet, 

1 : skivenhet A, 

2 : skivenhet B etc. 

Om man anger ett felaktigt värde på skivenheten returnerar funk¬ 
tionen värdet -1. 


DiskSize funktion TURBO PASCAL 


Deklaration DiskSize(drive:word)rlongint; 

Beskrivning Funktionen returnerar den totala storleken av den skivenhet som 
anges av heltalsuttrycket drive. Beträffande betydelsen av drive, 
se DiskFree ovan. 

Om man anger ett felaktigt värde på skivenheten returnerar funk¬ 
tionen värdet -1. 

DosExitCode funktion TURBO PASCAL 


Deklaration DosExitCodeiword; 

Beskrivning Returnerar eventuell felkod från ett underprogram. 

I den låga byten finns den kod som underprogrammet för ut till det 
överordnade programmet. Den höga byten anger hur underprogrammet 
avslutades. Om den höga byten har värdet 

0, så avslutades programmet på normalt sätt, 



1, så " " 

med CTRL-Z, 


2, så " " 

pga något enhetsfel, 


3, så " " 

med Keep instruktionen 

Jämför 

Exec 


Exec 

procedur TURBO PASCAL 



Deklaration Exec(path,cmdLine:string); 

Beskrivning Med denna rutin kan man exekvera ett program från ett Pascalprog- 
ram. 

Stränguttrycket path innehåller namnet på programmet som skall 
exekveras. Man kan förutom namnet här också ange i vilket bibliotek 
som programmet finns. 

Stränguttrycket cmdLine innehåller de parametrar som man skall ange 
då programmet exekveras. 
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Exempel 


Dos 

program TestAvExec; 

{$M $4000, 0, 0} {16 k stack, inget dynamiskt minne reserverat} 

uses Dos; 
begin 

Writeln( 'COMMAND.COM exekveras från ett huvudprogram.'); 

Exec( '\command .com ', '/c dir /w a:*.*'); 

WritelnC'Tillbaka i huvudprogrammet.'); 

Writeln(Telkod (dosError): ',dosError); 

Writeln( 'Returkod från underprocess: ' ,DosExitCode); 
end. 


Programmet kommer att skriva ut biblioteket på skivenheten A:. 

Den första parametern, '/C', är speciell för C0MMAND.COM och skall 
inte anges till andra program. 

Exec ändrar inte på huvudprogrammets minnesallokering. Man måste 
därför se till att det finns tillräckligt med minne över till un¬ 
derprocessen . 

FindFirst procedur TURBO PASCAL 


Deklaration EindEirst(path:string; attrrbyte; var frsearchRec); 

Beskrivning Returnerar i variabeln f av typen searchRec (se denna typ) data om 
den fil som först passar till stränguttrycket path och attributet 
attr. Detta senare uttryck har ett värde som överensstämmer med 
filattributkonstanterna, se ovan. 

0m fel inträffar finns felkoden i dosError. 

Exempel FindFirst('\TURB04\*.PAS',anyfile,f); 

lagrar i variabeln f data om den första filen i underbiblioteket 
TURB04 som har extension PAS. 


FindNext procedur TURBO PASCAL 


Deklaration FindNext(var f:searchRec); 

Beskrivning Lagrar data om nästa fil som passar den beskrivning (path) och det 
attribut som specificerats vid ett tidigare anrop av FindFirst. 

0m fel inträffar finns felkoden i dosError. 

GetDate procedur TURBO PASCAL 


Deklaration GetDate(var year,month,day,day0fWeek:word); 

Beskrivning Returnerar i motsvarande variabler datorsystemets datum. I varia¬ 
beln dayOfWeek lagras veckodagen, 0..6, där 0 svarar mot söndag. 


GetFAttr procedur TURBO PASCAL 


Deklaration 

Beskrivning 

GetEAttr(var f; var attr:word); 

I variabeln attr lagras filattributet för den fil 
filvariabeln f. Filen får inte vara öppnad. 

0m fel inträffar finns felkoden i dosError. 

som knutits till 

Exempel 

GetEAttr(f,attr); 

if attr and readOnly = readOnly then 

Writeln('Man kan bara läsa denna fil.'); 


GetFTime 

procedur TURBO PASCAL 


Deklaration 

Beskrivning 

GetFTime(var f; var time:longint); 

I variabeln time lagras den tidpunkt som en ändri 
på den fil som knutits till filvariabeln f. 

Filen måste vara öppen. 

ng senast gjordes 
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Om fel inträffar finns felkoden i dosError. 

Datum och klockslag packas upp med UnPackTime, 

GetlntVec procedur TURBO PASCAL 


Deklaration GetIntVec(n:byte; var vektorrpointer); 

Beskrivning Returnerar adressen till den avbrottsrutin som specificeras av 
heltalsuttrycket n. Interruptnumret måste ligga i intervallet 
0. .255. 

GetTime procedur TURBO PASCAL 


Deklaration GetTime(var hour,min,sec,tic:word); 

Beskrivning Returnerar tiden i motsvarande variabler. Variabeln tic kommer att 
innehålla antalet hundradels sekunder. 

Intr procedur TURBO PASCAL 


Huvud Intr(n:byte; var regs:register); 

Beskrivning Proceduren laddar processorns register med de värden som variabel- 
n regs innehåller. Därefter överlämnas kontrollen till den inter- 
rupthanterare som svarar mot heltalskonstanten n. När interrupthan- 
teraren lämnar tillbaka kontrollen till programmet igen, förs de 
värden som processorns register innehåller, över till variabeln 
reg. 

Avbrottshanterare som beror av eller modifierar registerna SP och 
SS kan inte anropas med Intr. 

DOS-rutiner beskrivs i 'Technical Reference Manual' från IBM. 

Keep procedur TURBO PASCAL 


Deklaration Keep(exitCode:word); 

Beskrivning Avslutar ett program och gör det minnesresident. Hela koden kommer 
att stanna kvar i minnet varför det är viktigt att minimera koden, 
jämför med programexemplet för Exec. 

Uttrycket exitCode svarar mot den kod som proceduren Halt anropas 
med. 

MsDos procedur TURBO PASCAL 


Huvud MsDos(var regs:register); 

Beskrivning Innan DOS-anropet görs laddas registerna med de värden som varia¬ 
beln regs innehåller. 

Då DOS-anropet är klart överförs registernas innehåll till varia¬ 
beln regs. 

DOS-rutiner som beror av eller modifierar registerna SP och SS kan 
inte anropas med MsDos. DOS-rutiner beskrivs i 'Technical Reference 
Manual ' från IBM. 

Exempel Denna rutin svarar mot Intr($21 , regs). 

PackTime procedur TURBO PASCAL 


Deklaration PackTime(var date:dateTime; var timerlongint); 

Beskrivning Översätter datum och klockslag i record-variabeln date till ett 

heltal av typen longint och lagrar det i variabeln time. Detta är 
det format som tiden för en fil lagras på skivan. 
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SetDate procedur TURBO PASCAL 


Deklaration SetDate(year,month,day,dayOfWeek:word); 
Beskrivning Ställer datorns interna klocka. 

Jämför GetDate. 

SetFAttr procedur TURBO PASCAL 


Deklaration SetFAttr(var f; attr:word); 

Beskrivning Sätter filattributen för den fil som är knuten till filvariabeln f. 
Filen får ej vara öppen. 

Om fel inträffar finns felkoden i dosError. 

SetFTime procedur TURBO PASCAL 

Deklaration SetFTime(var f; time:longint); 

Beskrivning Uppdaterar datum för den fil som är knuten till filvariabeln f. 

Datum och tid ligger lagrat i uttrycket time och har den form som 
rutinen PackTime ger. 

Filen måste vara öppen. 

SetlntVec procedur TURBO PASCAL 

Deklaration SetIntVec(n:byte; vektor:pointer); 

Beskrivning Sätter adressen till en avbrottsrutin för avbrott nummer n, 0..255. 

Används då man vill utnyttja ett visst avbrott för en egen av¬ 
brottsrutin . 

Exempel Antag att en pekarvariabel oldlnt är deklarerad. Man kan då instal¬ 

lera en egen avbrottsrutin Mylnt som utnyttjar interrupt $1B genom 

GetIntVec($1B,oldlnt); 

SetIntVec($1B,EMyInt); 

Den ursprungliga avbrottsrutinen återställes med 

SetIntVec($1B,oldlnt); 

Jämför GetlntVec 

SetTime procedur TURBO PASCAL 

Deklaration SetTime(hour,min,sec,tic:word); 

Beskrivning Ställer datorns interna klocka. 

Jämför GetTime. 

UnPackTime procedur TURBO PASCAL 

Deklaration UnPackTime(time:longint; var date:dateTime); 

Beskrivning Packar upp datum och klockslag som det anges för en fil och lagrar 
det på ett mera förståeligt format i record-variabeln date. 

Jämför PackTime. 
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16.4 Enheten Printer 


Printer 


Fördeklarerade variabler 

1st TURBO PASCAL 


Deklaration 

Beskrivning 


Exempel 


1st:text; 

Denna textvariabel knyts i implernentationsdelen av enheten Printer 
till skrivarutgången LPT1 på datorn och gör alltså det möjligt att 
skicka utskrifterna till skrivaren i stället för till skärmen. 
Writeln(lst,'Detta skrivs ut på skrivaren'); 
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Graph 

16.5 Enheten Graph 

16.5.1 Fördeklarerade konstanter. 

Drivrutinkonstanter. TURBO PASCAL 


detect = 

0 ger autodetektion 


CGA 

1 HercMono 

= 7 

MCGA 

2 ATT400 

= 8 

EGA = 

3 VGA 

= 9 

EGA64 

4 PC3270 

= 10 

EGAMono = 

5 


Används av 

InitGraph, DetectGraph, 

GetModeRange, 

Grafikmoder. 

TURBO PASCAL 





Upplösning 

Palett 

Bildsidor 

CGACO 

=0 

320x200 

lightgreen,lightred,yellow 

1 

CGAC1 

= 1 

320x200 

lightcyan,lightmagenta,white 

1 

CGAC2 

= 2 

320x200 

green,red,brown 

1 

CGAC3 

= 3 

320x200 

cyan,magenta,lightgray 

1 

CGAHi 

=4 

640x200 


1 

MCGACO 

=0 

320x200 

lightgreen,lightred,yellow 

1 

MCGAC1 

= 1 

320x200 

lightcyan,lightmagenta,white 

1 

MCGAC2 

= 2 

320x200 

green,red,brown 

1 

MCGAC3 

=3 

320x200 

cyan, magenta,lightgray 

1 

MCGAMed 

=4 

640x200 


1 

MCGAHi 

=5 

640x480 


1 

EGALo 

=0 

640x200 

16 färger 

4 

EGAHi 

= 1 

640x350 

16 färger 

2 

EGA64Lo 

=0 

640x200 

16 färger 

1 

EGA64H1 

= 1 

640x350 

4 färger 

1 

EGAMonoHi 

= 3 

640x350 

1 (2) 

HercMonoHi 

=0 

720x348 


2 

ATT400C0 

=0 

320x200 

lightgreen,lightred,yellow 

1 

ATT400C1 

= 1 

320x200 

lightcyan,lightmagenta,white 

1 

ATT400C2 

=2 

320x200 

green,red,brown 

1 

ATT400C3 

= 3 

320x200 

cyan, magenta,lightgray 

1 

ATT400Med 

=4 

640x200 


1 

ATT400Hi 

=5 

640x400 


1 

VGALo 

=0 

640x200 

16 färger 

4 

VGAMed 

= 1 

640x350 

16 färger 

2 

VGAHi 

=2 

640x480 

16 färger 

1 

PC3270Hi 

=0 

720x350 


1 

Används av 

InitGraph, DetectGraph, SetGraphMode, GetGraphMode. 

Färger För grafikrutiner TURBO PASCAL 



Samma färger som i enheten Crt används. 
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maxColors 


TURBO PASCAL 


Graph 


maxColors 

= 15 


Felkoder för grafikrutiner 

TURBO PASCAL 

grOk 

= 0 

Inget fel 

grNoInitGraph 

= -1 

Drivrutin ej installerad 

grNotDetected 

= -2 

Grafikkort finns ej 

grFileNotF ound 

= -3 

Hittar ej BGI-fil 

grlnvalidDriver 

= -4 

Ogiltig BGI-fil 

grNoLoadMem 

= -5 

Kan ej ladda drivrutin pga minnesbrist 

grNoScanMem 

= -6 

Minnesbrist vid fyllning av polygon eller cirkel- 
sektor 

grNoFloodMem 

= -7 

Minnesbrist vid fyllning av annan figur 

grFontNotFound 

= -8 

Hittar ej font-fil 

grNoF ontMem 

= -9 

Kan ej ladda font pga minnesbrist 

grlnvalidMode 

= -10 

Ogiltig grafikmod för vald drivrutin 

grError 

= -11 

Annat grafiskt fel 

grIOError 

= -12 

Grafiskt 10-fel 

grlnvalidFont 

= -13 

Ogiltig fontfil 

grlnvalidFontNum = -14 

Ogiltigt nummer på font 

grlnvalidDeviceNum = -15 

Ogiltigt nummer på drivrutin 

Används av GraphErrorMsg, GraphResult. 

Linjers utseende TURBO PASCAL 

solidLn =0 

heldragen 

normWidth =1 normal 

dottedLn =1 

punkter 

thickWidth =3 tjock 

centerLn =2 

korta-långa streck 

dashedLn =3 

jämnlånqa 

streck 

userBitLn =4 

egen komposition 

Används av GetLineSettings, SetLineStyle. 

Mönster vid fyllning av areor. TURBO PASCAL 

emptyFill 

=0 

Fyller arean med bakgrundsfärgen 

solidFill 

= 1 

Fyller hela arean med vald färg 

lineFill 

=2 

Arean fylls med horisontella linjer 

ltSlashFill 

= 3 

Arean fylls med tunna snedstreck 

slashFill 

=4 

Arean fylls med tjocka snedstreck 

bkSlashFill 

=5 

Arean fylls med tjocka snedstreck (backslash) 

ltBkSlashFill 

=6 

Arean fylls med tunna snedstreck (backslash) 

hatchFill 

= 7 

Arean fylls med tunna kors 

xHatchFill 

=8 

Arean fylls med tjocka kryss 

interleaveFill 

=9 

Arean fylls med korta horisontella streck 

wideDotFill 

= 10 

Arean fylls med punkter (glest) 

closeDotFill 

= 11 

Arean fylls med punkter (tätt) 

userFill 

= 12 

Arean fylls med ett egendefinierat mönster. 


Används av GetFillSettings, SetFillStyle. 
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Ritmoder 


TURBO PASCAL 


Graph 


normalPut =0 Rita med ritfärgen 

xorPut =1 Rita med (ritfärgen xor punktens färgvärde) 

orPut =2 Rita med (ritfärgen or punktens färgvärde) 

andPut =3 Rita med (ritfärgen and punktens färgvärde) 

notPut =4 Rita med (not ritfärgen) 

Används av Putlmage. 


Klippning TURBO PASCAL 

clipOn =true Klippning sker 

clipOff =false Klippning sker inte 


Bar3D-konstanter TURBO PASCAL 


topOn =true Locket ritas 

topOff =false Locket ritas inte 


lonter. TURBO PASCAL 

defaultFont =0 Standardfonten. 

triplexFont =1 

smallFont =2 

sansSerifFont =3 

gothicFont =4 

Används av GetTextStyle, SetTextStyle. 


Textriktning och placering av text. 

Riktning. TURBO PASCAL 

horizDir =0 Texten skrivs ut från vänster till höger. 

vertDir =1 Texten skrivs ut nerifrån och upp. 

Placering i horisontell led. TURBO PASCAL 

Placerar textdelens 

leftText =0 vänstra sida 

centerText =1 mittpunkt i sidled 

rightText =2 högra sida 

Placering i vertikal led. TURBO PASCAL 

Placerar textdelens 

bottomText =0 nedre textkant 

centerText =1 mittpunkt i höjdled 

topText =2 övre textkant 

Används av SetTextJustify. 
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16.5.2 Fördeklarerade typer. 


Graph 


paletteType TURBO PASCAL 


Deklaration paletteType = record 
size : byte; 

colors : array[0. .maxColors] of shortint 

end; 

lineSettingsType TURBO PASCAL 


Deklaration lineSettingsType = record 
lineStyle, 
pattern, 

thickness : word; 

end; 

textSettingsType TURBO PASCAL 


Deklaration textSettingsType = record 
font, 

direction, 
charSize, 
horiz, 

vert : word; 

end; 

fillSettingsType TURBO PASCAL 


Deklaration fillSettingsType = record 

pattern, emptyFill..userFill, 0. .12, 

color : word; färg på fyllmönster 

end; 

fillPatternType TURBO PASCAL 

Deklaration fillPatternType = array[l..8] of byte; 
pointfype TURBO PASCAL 


Deklaration pointType = record 
x,y : integer; 

end; 

viewPortfype TURBO PASCAL 


Deklaration viewPortType = record 

x1,y1,x2,y2 : integer; övre vänstra hörnet (x1,y1), 

clip : boolean; nedre högra hörnet (x2,y2) 

end; 


defaultFont..gothicFont, 0..4 
horizDir..vertDir, 0..1 
userCharSize=0 eller större 
leftText..rightText, 0..3 
bottomText..topText, 0..3 


solidLn..userBitLn, 0..4 
godtyckligt värde eller userBitLn 
normWidth,thickWidth, 1,3 


antal färger 
vektor med färgins¬ 
tällningar . 
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Graph 


arcCoordsType TURBO PASCAL 

Deklaration arcCoordsType = record 

x,y, bågens medelpunkt, 

xStart,yStart, startpunkt, 

xEnd,yEnd : integer; slutpunkt. 

end; 


16.5.3 Fördeklarerade variabler. 
graphGetMemPtr TURBO PASCAL 

Deklaration graphGetMemPtr:pointer; 

Beskrivning Denna pekare sätts att peka på en egen allokeringsrutin för dyna¬ 
misk minnesallokering, om man vill använda en sådan. 

graphF reeMemP t r TURBO PASCAL 

Deklaration graphF reeMemPtr:pointer; 

Beskrivning Denna pekare sätts att peka på en deallokeringsrutin, om man använ¬ 
der en egen allokeringsrutin. 


16.5.4 Fördeklarerade funktioner och procedurer. 

Initiering av grafik, grafikmoder och felrutiner. 

CloseGraph procedur TURBO PASCAL 

Deklaration CloseGraph; 

Beskrivning Rutinen avslutar grafikmoden och återställer skärmen till den tex¬ 
tmod som rådde innan grafikmoden initierades. Det minne som använts 
av drivrutinen frigöres. 

DetectGraph procedur TURBO PASCAL 

Deklaration DetectGraph( var graphDriver, graphMode:integer); 

Beskrivning Kontrollerar vilken typ av grafikkort som är installerat och avgör 
vilken drivrutin och grafikmod som kan användas. Lämplig drivrutin 
och grafikmod lagras i variablerna graphDriver resp graphMode. 

GraphErrorMsg funktion TURBO PASCAL 

Deklaration GraphErrorMsg(errorCode:integer): string; 

Beskrivning Skriver ut det grafiska felet i klartext. Felkoden för felet anges 
med uttrycket errorCode. 

Graphresult funktion TURBO PASCAL 


Deklaration GraphResult:integer; 

Beskrivning Funktionen returnerar felkoden för grafiska fel. Ett fel kan bara 
avläsas en gång eftersom GraphResult nollställs efter ett anrop. 
Beträffande felkoder, se motsvarande konstanter. 
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InitGraph procedur TURBO PASCAL 


Graph 


Deklaration InitGraph( var graphDriver, graphMode:integer; path: string); 
Beskrivning Rutinen kontrollerar först den typ av grafikkort som finns i 

datorn, och försöker sedan installera den drivrutin och grafikmod 
som anges med graphDriver resp graphMode. 

Om variabeln graphDriver ges värdet detect och InitGraph sedan an¬ 
ropas med denna variabel, installerar rutinen själv lämplig drivru¬ 
tin och grafikmod. 

Med den tredje parametern anger man i vilket bibliotek som drivru¬ 
tinfilerna, BGI-filerna, finns. Om man anger en tom strängkonstant, 
förutsätts att de finns i det aktuella biblioteket. 

Exempel Med satserna 

graphDriver:=detect; 
lnitGraph(graphDriver,graphMode, '; 

låter man InitGraph själv installera lämplig drivrutin och grafik- 
mod. Värdena för de som valts ligger nu lagrade i variablerna 
graphDriver och graphMode. Se motsvarande konstantbeskrivningar. 

Med satserna 

graphDriver:=EGA; 
graphMode:=EGAHi; 

InitGraph(graphDriver,graphMode, ''); 

laddas drivrutinen för EGA-kortet och grafikmoden EGAHi väljs in om 
detta är möjligt. Lyckas det inte kan man avläsa felet med rutinen 
GraphResult. 

GetGraphMode funktion TURBO PASCAL 
Deklaration GetGraphMode:integer; 

Beskrivning Returnerar värdet av aktuell grafikmod som ett heltal. 

Jämför Grafikmodkonstanter. 

GetMaxX funktion TURBO PASCAL 

Deklaration GetMaxX:integer; 

Beskrivning Returnerar det största x-värdet för den aktuella grafikmoden. 
GetMaxY funktion TURBO PASCAL 

Deklaration GetMaxY:integer; 

Beskrivning Returnerar det största y-värdet för den aktuella grafikmoden. 
GetModeRange procedur TURBO PASCAL 


Deklaration GetModeRange( var graphDriver:integer; var loMode,hiMode:integer); 

Beskrivning I heltalsvariablerna loMode och hiMode lagras det lägsta resp 

största värdet för möjliga grafikmoder för den drivrutin, som anges 
med graphDriver. 

GraphDefaults procedur TURBO PASCAL 

Deklaration GraphDefaults; 

Beskrivning Nollställer alla inställningar av fönster, val av färger etc, och 
placerar den grafiska markören i position (0,0). 
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RegisterBGIfont funktion TURBO PASCAL 


Graph 


Deklaration 

Beskrivning 


Exempel 


RegisterBGIfont(fontpekare:pointer):integer; 

Rutinen "registrerar" en font som laddas in av programmet. 

Om inladdningen lyckas returnerar rutinen värdet av motsvarande 
font, annars returneras ett värde mindre än noll. 

Satserna nedan laddar in fonten gothic, fonten registreras och kan 
sedan användas direkt vid SetTextStyle utan att den behöver laddas 
in på nytt från skiva. 


Assign(fil, 'GOTHIC.CHR '}j (* 
Reset(fil,1); (* 
GetMem(fontpekare,FileSize(fil)); (* 
BlockRead(fil,fontpekare~,FileSize(fil));(* 

(* 


var fil:file; *) 

blockstorlek 1 byte*) 
allokera minne *) 
läs in filen i *) 
minnet *) 


if RegisterBGIfont(fontpekare)<0 then (* kontrollera ! *) 

Writeln('Fel vid laddning av font: 

GraphErrorMsg(GraphResult)); 


(* fonten finns nu direkt tillgänglig i minnet *) 


Man kan ladda in och registrera flera fonter på det här sättet. 
Fonterna kan också länkas in direkt i det körbara programmet. De 
måste då vara konverterade till .OBJ filer (använd BINOBJ.EXE) som 
länkas till en enhet (som programmet kan använda) eller kompileras 
in i programmet med kompileringsdirektivet {$L}. 

Fonterna registeras i programmet med RegisterBGIfont innan grafiken 
initieras . 


RegisterBGIdriver funktion TURBO PASCAL 


Deklaration RegisterBGIdr iver(drivRutin:pointer):integer; 

Beskrivning Rutinen "registrerar" en drivrutin som laddas in av programmet. 

Förfaringssättet är precis detsamma som för RegisterBGIfont. 
Observera! Drivrutinerna måste registeras i programmet med Regis¬ 
terBGIdriver innan grafiken initieras . 

RestoreCrtMode procedur TURBO PASCAL 


Deklaration RestoreCrtMode; 

Beskrivning Återställer skärmen till det tillstånd den har då programmet star¬ 
tas upp. Instruktionen bör användas endast då ett program avslutas 
eftersom rutinerna i enheten Crt eventuellt inte fungerar efteråt. 

SetGraphBufSize procedur TURBO PASCAL 


Deklaration SetGraphBufSize(size:word); 

Beskrivning Gör det möjligt att ändra storleken på den interna buffert som 

används t ex då polygoner skall fyllas. Normalt upptar den interna 
bufferten en minnesarea av A kb, vilket räcker till att fylla en 
polygon som har upp till ca 650 hörn. 

SetGraphMode procedur TURBO PASCAL 


Deklaration SetGraphMode(mode:integer); 

Beskrivning Med denna instruktion väljer man en viss grafikmod. Värdet av utt¬ 
rycket mode måste vara giltigt för den aktuella drivrutinen. 
Instruktionen nollställer alla tidigare inställningar av fönster, 
val av färger etc. 
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Graph 

Skärm, fönster och bildsidor. 

ClearDevice procedur TURBO PASCAL 


Deklaration ClearDevice; 

Beskrivning Tömmer hela skärmen och placerar den grafiska markören i (0,0) i 
det aktuella fönstret. 

Tidigare inställningar av fönster, val av färger etc påverkas inte. 
ClearViewPort procedur TURBO PASCAL 


Deklaration ClearViewPort; 

Beskrivning Tömmer det aktuella fönstret med bakgrundsfärgen. 
GetX funktion TURBO PASCAL 


Deklaration GetX:integer; 

Beskrivning Returnerar x-koordinaten för den position där den grafiska markören 
befinner sig. Rutinen är fönsterrelaterad, dvs koordinaterna anges 
som fönsterkoordinater. 

GetY funktion TURBO PASCAL 


Deklaration GetY:integer; 

Beskrivning Returnerar y-koordinaten för den position där den grafiska markören 
befinner sig. Rutinen är fönsterrelaterad, dvs koordinaterna anges 
som fönsterkoordinater. 

GetViewSettings procedur TURBO PASCAL 


Deklaration GetViewSettings( var fonster:viewPortType); 

Beskrivning Rutinen lagrar i variabeln fönster koordinaterna för fönstret och 
om klippning i fönstret görs. 

Jämför ViewPortType. 

SetActivePage procedur TURBO PASCAL 


Deklaration 

Beskrivning 


Jämför 


SetActivePage(sida:word); 

Rutinen gör sida till den aktiva bildsidan. Detta innebär att alla 
skrivningar till bildminnet görs till denna bildsida. 

Rutinen lämpar sig för att visa rörliga bilder. 

SetVisualPage. 


SetVisualPage procedur TURBO PASCAL 


Deklaration 

Beskrivning 

Jämför 


SetVisualPage(sida:word); 

Med denna rutin bestämmer man vilken bildsida som skall visas på 
skärmen. 

SetActivePage. 


SetViewPort procedur TURBO PASCAL 


Deklaration SetViewPort(xl,yl,x2,y2:integer; clip:boolean); 

Beskrivning Med denna rutin definierar man aktuellt fönster. Koordinaterna för 
fönstrets övre vänstra hörn är (x1,y1) och för det nedre högra 
hörnet (x2,y2). Om uttrycket clip har värdet true kommer klippning 
i fönstret att ske, annars inte. 
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Punkter 


Graph 


GetPixel funktion TURBO PASCAL 


Deklaration GetPixel(x,y:integer):word; 

Beskrivning Returnerar färgvärdet i punkten (x,y). 

MoveRel procedur TURBO PASCAL 


Deklaration MoveRel(dx,dyrinteger); 

Beskrivning flyttar grafikmarkören från den aktuella positionen de relativa 
förflyttningarna dx och dy. 

Om markörens position är (x,y) är MoveRel(dx,dy) likvärdigt med 
MoveT o(x+dx,y+dy). 


MoveTo procedur TURBO PASCAL 


Deklaration MoveTo(x,y:integer); 

Beskrivning Flyttar grafikmarkören till punkten (x,y). 
PutPixel procedur TURBO PASCAL 


Deklaration PutPixel(x,y:integer; colorrword); 

Beskrivning Med denna instruktion fyller man punkten (x,y) med färgen color. 


Linjer. 

GetLineSettings procedur TURBO PASCAL 


Deklaration 

Beskrivning 

Jämför 


GetLineSettings( var linjeFakta:lineSettingsType); 

Rutinen lagrar i record-variabeln linjeFakta uppgifter om utseendet 
på linjen, ev mönster och linjens tjocklek. 

Typen lineSettingsType. 


Line procedur TURBO PASCAL 


Deklaration Line(x1,y1,x2,y2:integer); 

Beskrivning Drar en linje från punkten (x1,y1) till punkten (x2,y2) i den färg 
som valts med SetColor och det utseende som valts med SetLineStyle. 
Se dessa båda rutiner. Grafikmarkörens position påverkas inte. 


LineRel procedur TURBO PASCAL 


Deklaration LineRel(dx,dyrinteger); 

Beskrivning Drar en linje från grafikmarkörens aktuella position de relativa 
förflyttningarna dx och dy, i den färg och det utseende som valts 
tidigare, se Line. Grafikmarkören flyttas till den sista punkten 
som ligger på linjen, även om denna befinner sig utanför det aktu¬ 
ella fönstret. 


Exempel Om grafikmarkörens aktuella position är (x,y), så är satsen 

LineRel(dx,dy) ; 

likvärdigt med satserna 

Line(x,y,x+dx,y+dy); 

Moveto(x+dx,y+dy); 
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LineTo 


procedur TURBO PASCAL 


Graph 


Deklaration LineTo(x,y:integer); 

Beskrivning Drar en linje från grafikmarkörens aktuella position till punkten 
(x,y)j i den färg och med det utseende som valts tidigare, se Line. 
Grafikmarkören flyttas till den sista punkten som ligger på linjen, 
även om denna befinner sig utanför det aktuella fönstret. 

Exempel Om grafikmarkörens aktuella position är (oldx,oldy), så är satsen 

LineTo(x,y); 
likvärdigt med satserna 
Line(oldx,oldy,x,y); 

Moveto(x,y); 

SetLineStyle procedur TURBO PASCAL 


Deklaration SetLineStyle(utseende,monster,tjocklek:word); 

Beskrivning Med denna instruktion väljer man det utseende, det mönster och den 
tjocklek som linjer och kurvor skall ritas med. 

Beträffande värdet av dessa parametrar, se linjekonstanter. 


Polygoner, fyllning av figurer. 

Bar procedur TURBO PASCAL 

Deklaration Bar(xl,yl,x2,y2:integer); 

Beskrivning Ritar en rektangel och fyller den med det mönster och i den färg 
som valts med SetFillStyle eller SetFillPattern. Konturen av rek¬ 
tangeln ritas med den färg som valts med SetColor. 

Bar3D procedur TURBO PASCAL 

Deklaration Bar3D(x1,y1,x2,y2:integer; depth:wordj toptboolean); 

Beskrivning Ritar ett tredimensionellt rätblock. Den rektangulära framsidan 

ritas precis som för Bar. Om det booleska uttrycket top är sant 
ritas ovansidan på rätblocket ut, annars inte. 

Konturen av rätblocket ritas med färg som valts med SetColor. 

Med uttrycket depth anges "djupet" på rätblocket. Baksidan på rät¬ 
blocket ligger depth pixel till höger om framsidan och ungefär 
(knappt) depth pixel ovanför. 

DrawPoly procedur TURBO PASCAL 

Deklaration DrawPoly(ntword; var polygon); 

Beskrivning Uttrycket n anger antalet hörn plus ett hörn för polygonen. 

Variabeln polygon innehåller koordinaterna för hörnen och kan vara 
av en godtycklig datatyp. De två första byten i variabeln utgör x- 
koordinaten för första hörnet, de två nästa representerar y-koordi- 
naten. De fyra nästa byten upptas av koordinaterna för nästa hörn 
osv. De allra sista fyra byten är identiska med de fyra första, dvs 
man anger alltid som sista hörn det hörn som man började med. 
Sidorna ritas i den färg och med det utseende som valts med SetCo¬ 
lor resp 5etLineStyle. 

Exempel Dr:-är lämpligt att ange polygonen som en vektor av den fördeklare¬ 

rade datatypen 

pointType = record 
x, y: integer ; 

end; 
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Graph 

t ex var polygon : array[1..10] of pointType; 
som innehåller nio hörn. 

Exempel Om man vet pologonens hörn från början kan man hellre deklarera den 

som en typad konstant. En sådan fungerar precis som en variabel med 
enda skillnaden att den ges utgångsvärden. 

const 

triangel : array[l..4] of pointType = 

((x:25; y:0),(x:0; y:50),(x:50; y:50),(x:25; y:0)); 

Denna triangel ritas ut med instruktionen 

DrawPoly(SizeOf(triangel) div SizeOf(pointType), triangel); 

fillPoly procedur TURBO PASCAL 


Deklaration FillPoly(n:word; var polygon); 

Beskrivning Fyller arean inuti en polygon i den färg och med det fyllmönster 
som valts med SetFillStyle eller SetFillPattern. 

Till skillnad från DrawPoly anger uttrycket n verkligen antalet 
hörn, så att den sista punkt som DrawPoly måste ha, används inte 
här. 

FloodFill procedur TURBO PASCAL 


Deklaration FloodFill(x,y:integer; coloriword); 

Beskrivning Med denna instruktion fyller man areor av godtyckligt utseende i 
den färg och med det fyllmönster som valts med SetFillStyle eller 
SetFillPattern. Arean måste vara begränsad av färgen color och 
(x,y) är en punkt inuti arean. 

GetFillPattern procedur TURBO PASCAL 


Deklaration GetFillPattern( var monster:fillPatternType); 

Beskrivning I variabeln monster lagras det fyllmönster som valts med SetFill¬ 
Pattern. Typen fillPatternType = array[1..8] of byte. 

Om inget fyllmönster valts kommer elementen i monster att bestå av 
talet 255. 

GetFillSettings procedur TURBO PASCAL 


Deklaration GetFillSettings( var fyllFakta:fillSettingsType); 

Beskrivning Lagrar i record-variabeln fyllFakta numret på det aktuella fyll- 
mönstret och och värdet på fyllfärgen i fältvariablerna pattern 
resp color (se typen fillSettingsType). 

Om fältvariabeln pattern har värdet userFill (=12) kan man hämta 
det fyllmönster som används med GetFillPattern. 


Rectangle procedur TURBO PASCAL 


Deklaration Rectangle(x'l ,yl ,x2,y2:integer); 

Beskrivning Ritar en rektangel med övre vänstra hörnet i (x1,y1) och det nedre 
högra hörnet i (x2,y2). 

Koordinaterna är alla heltalsuttryck av typen integer. 
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SetFillStyle procedur TURBO PASCAL 


Graph 


Deklaration SetFillStyle(monster,color:word); 

Beskrivning Med heltalsuttrycket monster väljer man det fyllmönster som man 

vill använda, se fyllkonstanter. Uttrycket color anger den färg som 
mönstret skall ritas med. 

SetFillPattern procedur TURBO PASCAL 


Deklaration SetFillPattern(monster:fillPatternType; color:word ); 

Beskrivning Med denna instruktion väljer man till fyllmönster ett egendefinie- 
rat mönster, monster, av typen fillPatternType. Fyllfärgen bestäms 
av uttrycket color. 

Typen fillPatternType är en fördeklarerad typ (se typer). 

Varje byte i variabeln monster representerar en horisontell linje i 
mönstret där varje bit i en byte motsvarar en punkt. Mönstret är 
alltså 8 punkter brett och 8 punkter högt. 

Mönstret kan med fördel lagras i en typad konstant som t ex 


const 

monster : array[0..7] oF byte = (170,85,170,85,170,85,170,85); 


Mönstret framgår om man skriver ut de decimala arrayelementen i 


binär form: 

170 = 1 0 1 0 1 0 1 0 

85 = 0 1 0 1 0 1 0 1 

170 = 1 0 1 0 1 0 1 0 

85 = 0 1 01 0 1 01 
170 = 1 0 1 0 1 0 1 0 

85 = 0 1 0 1 0 1 0 1 

170 =10101010 
85 = 0 1 0 1 0 1 0 1 


När detta mönster valts med SetFill¬ 
Pattern kommer vid fyllning av areor 
punkter som motsvaras av ettor att 
skrivas på skärmen medan nollor inte 
förändrar något. 


Cirklar, cirkelbågar och ellipser. 

Are procedur TURBO PASCAL 


Deklaration Arc(x,y:integer; startVinkel,slutVinkel,r:word); 

Beskrivning Ritar en cirkelbåge med medelpunkten i (x,y) och radien r. Bågen 
ritas från och med vinkeln startVinkel till och med vinkeln slut¬ 
Vinkel. Vinklarna räknas från positiva x-axeln och ökar moturs. 
Vinklarna anges i grader (0-360). 

Cirkelbågen ritas med det utseende och i den färg som valts med 
SetLineStyle resp SetColor. 

Circle procedur TURBO PASCAL 


Deklaration Circle(x,y:integer; r:word); 

Beskrivning Ritar en cirkel med medelpunkten i (x,y) och radien r. Cirkeln 

ritas med det utseende och i den färg som valts med SetLineStyle 
resp SetColor. 


Ellipse procedur TURBO PASCAL 


Deklaration Ellipse(x,y:integer; startVinkel,slutVinkel,xRadie,yRadie:word); 
Beskrivning Ritar en ellips eller en del av en ellips med medelpunkten i (x,y) 
och radien r, från och med vinkeln startVinkel till och med vinkeln 
slutVinkel. Vinklarna räknas från positiva x-axeln och ökar moturs. 
Vinklarna anges i grader (0-360). 
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Ellipsbågen ritas med det utseende och i den färg som valts med 
SetLineStyle resp SetColor. 

GetArcCoords procedur TURBO PASCAL 


Deklaration 

Beskrivning 


Jämför 


GetArcCoords( var arcFakta:arcCoordsType); 

I recordvariabeln arcFakta returneras bågens medelpunkt i (x,y), 
startpositionen i (xStart,yStart) och slutposition i (xEnd,yEnd). 
Dessa värden är användbara om man t ex vill rita en cirkelsektor. 
Typen arcCoordsType. 


GetAspectRatio procedur TURBO PASCAL 


Deklaration GetAspectRatio( var xAsp, yAsp:word); 

Beskrivning Upplösningen på skärmen i x- och y-led är vanligtvis inte lika 

stora. Med aspektförhållandet menar man det tal, som y-koordinater- 
na skall multipliceras med för att cirklar skall bli runda, kvadra¬ 
ter se kvadratiska ut etc. 

Rutinen returnerar i variablerna xAsp och yAsp värden, så att as¬ 
pektförhållandet kan beräknas, xAsp/yAsp. 

Denna kvot används av Circle, Are och PieSlice. 

Exempel Satsen Rectangle(0,0,150, Round(xAsp/yAsp*150); 

kommer att rita en rektangel som ser kvadratisk ut. 

Om y-koordinaterna är givna kan man naturligtvis i stället multip¬ 
licera x-koordinaterna med kvoten yAsp/xAsp och ändå få samma ef¬ 
fekt . 

PieSlice procedur TURBO PASCAL 


Deklaration PieSlice(x,y:integer; startVinkel, slutVinkel, r:word); 

Beskrivning Ritar och fyller en cirkelsektor med medelpunkten i (x,y) och 

radien r. Sektorn ritas från och med vinkeln startVinkel till och 
med vinkeln slutVinkel. Vinklarna räknas från positiva x-axeln och 
ökar moturs. Vinklarna anges i grader (0-360). 

Konturen av cirkelsektorn ritas med det utseende och i den färg som 
valts med SetLineStyle resp SetColor. Det inre av sektorn fylls med 
det mönster och den färg som valts med SetFillStyle eller SetFill- 
Pattern. 


Färger och paletter. 


GetBkColor 

funktion TURBO PASCAL 




Deklaration 

Beskrivning 

GetBkColor:word; 
Returnerar värdet på den 

färg 

som valts till 

bakgrundsfärg. 

GetColor 

funktion TURBO PASCAL 




Deklaration 

Beskrivning 

GetColor:word; 

Returnerar värdet på den 

färg 

som valts till 

ritfärg. 

GetMaxColor 

funktion TURBO PASCAL 




Deklaration 

GetMaxColor:word; 





Beskrivning Returnerar det största färgvärde som kan användas för den aktuella 
grafikmoden. 
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GetPalette procedur 


TURBO PASCAL 


Graph 


Deklaration GetPalette( var palett:paletteType); 

Beskrivning Returnerar den aktuella paletten och dess storlek, dvs antalet 

färger, i recordvariabeln palett. Se typen paletteType. I fältvari¬ 
abeln size lagras antalet färger i paletten. Den andra fältvaria¬ 
beln, colors, är en vektor som innehåller färginställningen för 
resp färg i paletten. 

Jämför SetAllPalette. 

SetAllPalette procedur TURBO PASCAL 

Deklaration SetAllPalette( var palett); 

Beskrivning Variabeln palett är en otypad variabel. Man kan lämpligen deklarera 
den till typen paletteType, se denna typ. Första byten i variabeln 
anger nämligen antalet färger i paletten. De därpå följande byten 
anger färginställningen för respektive färg. 

Om man anger färginställningen -1 för en färg kommer denna färg 
inte att ändras. Alla andra färger ändras och skärmen uppdateras 
omedelbart. 

Om man anger en ogiltig färginställning returnerar GraphResult 
värdet -11 och ingenting ändras. 

Då man anger en färginställning kan alla de fördeklarerade färg- 
konstanterna användas. Dessa har färgvärden mellan 0..15. Om gra¬ 
fikkortet tillåter det, kan man använda andra inställningar. 

Exempel Antag att grafikkortet är ett EGA-kort. Vi kan då välja en palett 

på 16 färger bland 256 färger och t ex deklarera 

const 

palett:paletteType = 

(size:16; 

colors:(-1,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47)); 

I programmet väljer vi denna palett med instruktionen 
SetAllPalette(palett); 

Den första färgen, färg nummer noll, har färginställningen -1 och 
ändras därför inte. Den kommer fortfarande att synas svart. Den 
sista färgen, färg nummer sexton, har inställningen 47 och kommer 
att vara violett. 

Observera! Med färgvärdet för en färg menas dess nummer i paletten, 
vilket inte skall förväxlas med färginställningen för färgen, även 
om de råkar stämma överens i grundinställningen. 

Om vi försöker rita med färgen white i paletten ovan kommer vi 
alltså att rita med violett färg. 

SetBkColor procedur TURBO PASCAL 

Deklaration SetBkColor(color:word); 

Beskrivning Med denna instruktion väljer man den färg som skall vara bakgrunds¬ 
färg. 

Exempel Med instruktionerna 

SetBkColor(GetMaxColor) ; 

SetColor(black); 

kommer man att rita med svart, färg på en vit bakgrund. 
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SetColor 


procedur 


TURBO PASCAL 


Graph 


Deklaration SetColor(color:word )\ 

Beskrivning Med denna instruktion väljer man den färg man vill rita med. 
SetPalette procedur TURBO PASCAL 
Deklaration SetPalette(n:word; color:shortint); 

Beskrivning Ändrar färgen på färg nummer n i paletten till färginställningen 
color. Med denna instruktion kan man ändra varje färg i paletten. 
Jämför SetAllPalette. 


Pictures 

ImageSize funktion TURBO PASCAL 

Deklaration ImageSize(xl,y1,x2,y2:integer):word; 

Beskrivning Returnerar storleken, antalet byten, på den variabel som krävs för 
att den skall kunna lagra den rektangulära area som definieras av 
koordinatuttrycken xl, yl, x2 och yl. 

I antalet är inkluderat fyra extra byten för lagring av bildens 
bredd och höjd. 

Om det krävs ett minnesutrymme större än 64 kb returnerar GraphRe- 
sult värdet -11. 

Getlmage procedur TURBO PASCAL 

Huvud Get Image(xl,y1,x2,y2:integer; var buffer ); 

Beskrivning Kopierar innehållet av en rektangulär area definierad av koordina- 
terna x1,y1,x2,y2 till variabeln buffer, som kan vara av en god¬ 
tycklig datatyp. 

Bilder, pictures, lägger man med fördel i det dynamiska minnesut- 
rymmet eftersom mycket minnesutrymme går åt och därför annars skul¬ 
le belasta programmets dataarea hårt. 

Exempel Med deklarationen 

var bild:pointer; 

kan man hämta en bild med instruktionerna 

GetMem(bild,ImageSize(50,50,100,100)); (* allokera minne *) 

GetImage(10,10,20,20,bild'); 

och därefter kopiera den till en annan plats på skärmen med 
PutImage(50,50,bild",normalPut); 

Putlmage procedur TURBO PASCAL 

Huvud Putlmage(x,y:integer; var buffer; putMode:word); 

Beskrivning Kopierar innehållet i variabeln buffer till en rektangulär area, 
där (x,y) utgör det övre vänstra hörnet. I variabeln buffer har 
tidigare lagrats en bild med proceduren Getlmage. 

Uttrycket putMode anger det sätt på vilket bilden skrivs till skär¬ 
men och har ett värde i intervallet 0..4. Se ritmodskonstanter. 
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Om putMode=normalPut så skrivs de gamla punktvärdena över, de rade¬ 
ras och de nya värdena kopieras in. Detta svarar mot assemblerinst- 
ruktionen MOV. 

Om putmode=xorPut så läggs i varje punkt värdet av operationen xor 
mellan den gamla och den nya punktens färgvärde. Detta svarar mot 
assemblerinstruktionen XOR. Ritmoden xorPut är mycket användbar då 
man i ett program "släpar" en bild över skärmen, eftersom man slip¬ 
per att spara undan bakgrunden för att skydda den. Man ritar nämli¬ 
gen bilden två gånger. Andra gången bilden ritas får man tillbaka 
bakgrunden. 

Andra ritmoder svarar mot assemblerinstruktionerna OR, AND och NOT. 
Vid ritmoden notPut kommer varje bit i bilden att inverteras. 

Ingen klippning mot det aktuella fönstret sker. 

Om någon del bilden skulle hamna utanför skärmens sidor ritas bil¬ 
den inte ut, med undantag av nedersidan där bilden klipps. 

Exempel Se Getlmage. 


Text i grafikmod 

GetTextSettings procedur TURBO PASCAL 


Deklaration GetTextSettings( var textFakta:textSettingsType); 

Beskrivning I record-variabeln textFakta lagras den inställning som används vid 
textutskrifter, aktuell font, riktning vid utskrift, storlek på 
texten och det horisontella och vertikala centreringssättet. 

Se typen textSettingsType. 

OutText procedur TURBO PASCAL 


Deklaration OutText(txt: string); 

Beskrivning Instruktionen placerar texten txt med början där den grafiska mar¬ 
kören befinner sig. Grafikmarkören flyttas till slutet av texten 
endast om textriktningen är horisontell och den horisontella cent- 
reringen är textdelens vänsterkant (leftText). 

Texten klipps mot det aktuella fönstret. Om hela skärmen är det ak¬ 
tuella fönstret och någon textdel hamnar utanför skärmen, så skrivs 
inte texten ut om fonten är standardfonten, annars klipps den. 

Beträffande fonter, textriktning och storlek, se SetTextStyle. 
Centrering av texten görs med SetTextJustify. 

Om ett talvärde skall skrivas ut måste det först omvandlas till en 
sträng. Se proceduren Str. 


OutTextXY procedur TURBO PASCAL 


Deklaration OutTextXY(x,y:integer; txt:string); 

Beskrivning Instruktionen placerar texten txt med början i punkten (x,y). Gra¬ 
fikmarkören påverkas ej. 

För övrigt gäller detsamma som för OutText. 

SetTextJustify procedur TURBO PASCAL 


Deklaration 

Beskrivning 


SetTextJustify(xCent,yCent:word); 

Med denna instruktion bestämmer man hur texten skall placeras i 
förhållande till en viss punkt, låt säga punkten (x,y). 

Den första parametern avser placeringen i x-led. Om 
xCent = leftText placeras textens vänstra del i x, 

= centerText mittersta del i x, 

= rightText högra del i x. 
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Den andra parametern avser placeringen i y-led. Om 
yCent = bottomlext placeras textens nedre del i y, 

= centerText mittersta del i y, 

= toplext övre del i y. 

Beträffande värdena för centreringskonstanterna se konstantdeklara- 
ticnerna för text i grafik. 

Om man anropar SetTextJustify med ogiltiga värden returnerar Graph- 
Result värdet -11 och centreringsinställningarna ändras inte. 

SetTextStyle procedur fURBO PASCAL 


Deklaration SetTextStyle(font,riktn,storlek:word); 

Beskrivning Med denna instruktion väljer man den font man vill skriva med, den 
riktning som texten skall skrivas ut i och storleken på texten. 

Bland fonterna kan man välja en standardfont, defaultFont, som är 
en 8x8-bitfont. Den minsta storleken för denna font är 1, som är 
standardstorleken. Anger man storleken 2, förstoras den två ggr 
till en 16x16-bitfont. 

De övriga fonterna, triplexFont .. gothicFont, är speciella fonter 
med standardstorleken 4. Med SetUserCharSize kan man ändra på denna 
storlek. 

Texten kan skrivas ut i två riktningar, antingen horisontellt eller 
vertikalt, horizDir..vertDir. 

Standardfonten, defaultFont, finns alltid tillgänglig medan de 
övriga ligger lagrade på CHR-filer, som måste ligga i samma biblio¬ 
tek som det program som använder dem. 

Det är möjligt att ladda in dem i minnet, se RegisterBGIFont. 


SetUserCharSize procedur TURBO PASCAL 


Deklaration 

Beskrivning 

SetUserCharSize(multX,divX,multV,divY:word); 

Med denna instruktion kan man ändra på bredden och höjden av fon¬ 
terna triplexFont..gothicFont. Talet multX/divX utgör den faktor 
man vill att texten skall förstoras med i x-led. Liknande erhålles 
för talet multY/divY i y-led. För att SetUserCharSize skall ha 
någon verkan måste man anropa SetTextStyle efteråt. 

Exempel 

Med instruktionerna 



SetUserCharSize(3,1,2,1); 

SetTextStyle(triplexfont,horizDir,userCharSize); 



kommer vid utskrift tecknen att bli förstorade 3 ggr i x-led och 2 
ggr i y-led. Värdet av userCharSize sätts av SetUserCharSize. 

TextHeight 

funktion TURBO PASCAL 


Deklaration 

Beskrivning 

TextHeight(txt:string):word; 

Returnerar höjden av stränguttrycket txt räknat i pixel i 
den aktuella textinställningen. 

y-led för 

TextWidth 

funktion TURBO PASCAL 


Deklaration 

TextWidth(txt: string) :word; 



Beskrivning Returnerar bredden av ett tecken i stränguttrycket txt räknat i 
pixel i x-led för den aktuella textinställningen. 
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16.6. Enheten Graph3 


Graph3 


16.6.1 Konstanter 
Turtlekonstanter . TURBO PASCAL 


north =0 

east =90 

south =180 

west =270 


16.6.2 Funktioner och procedurer 


Draw procedur TURBO PASCAL 


Huvud Draw(xl,yl,x2,y2,color:integer); 

Beskrivning Ritar en linje från punkten (x1,y1) till punkten (x2,y2) i färgen 
color. 

Klipps i aktivt fönster. 

GraphBackground procedur TURBO PASCAL 


Huvud GraphBackground(color :integer); 

Beskrivning Bakgrundsfärgen sätts till färgen color som kan väljas bland 16 
färger, dvs color ligger i intervallet 0. .15. 

GraphColorMode procedur TURBO PASCAL 


Huvud GraphColorMode; 

Beskrivning Den grafiska färgmoden med upplösningen 320*200 punkter aktiveras, 
varvid skärmen töms. 


GraphMode procedur TURBO PASCAL 


Huvud GraphMode; 

Beskrivning Den grafiska moden med upplösningen 320*200 punkter aktiveras, 
varvid skärmen töms. 

Denna instruktion används för svart-vita skärmar. 

Den kari också användas på färgskärmar och ger då andra färguppsätt¬ 
ningar än GraphColorMode. 

GraphWindow procedur TURBO PASCAL 


Huvud GraphWindow(xl,y1,x2,y2:integer); 

Beskrivning Definierar ett grafiskt fönster till vilket grafikrutiner som rit¬ 
ning av punkter, linjer etc är begränsat till. 

Fönstret utgöres av en rektangel med övre vänstra hörnet i punkten 
(x1,y1) och nedre högra hörnet i punkten (x2,y2). 


HiRes procedur TURBO PASCAL 


Huvud HiRes; 

Beskrivning Den grafiska moden med upplösningen 640*200 punkter aktiveras, 
varvid skärmen töms. 

Bakgrundsfärgen är alltid svart. Färgnumret är 0 för bakgrundsfär¬ 
gen medan aktiv ritfärg har färgnummer 1. 
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HiResColor procedur TURBO PASCAL 


Graph3 


Huvud HiResColor(color:integer); 

Beskrivning Bestämmer den färg man man vill rita med. Värdet på color ligger i 
intervallet 0..15. 


Palette procedur TURBO PASCAL 


Huvud Palette(n:integer); 

Beskrivning Väljer in aktiv färgkarta (palette). Den färg man vill rita med 

måste väljas bland de fyra färger som anges för den aktiva färgkar¬ 
tan . 

Den första valfria färgen är bakgrundsfärgen och har färgnummer 0. 
Nästa färg har nummer 1 osv. 

Om man valt in GraphColorMode och Palette(2) och ritar med färg 3, 
så ritar man alltså med gul färg. 

Den valfria bakgrundsfärgen väljs med GraphBackground. 

Färgkartor i GraphMode: 


Palette(O) valfri blue red lightgray 

Palette(1) valfri lightblue lightred white 

Färgkartor i GraphColorMode: 

Palette(O) valfri green red brown 

Palette(1) valfri cyan magenta lightgray 

Palette(2) valfri lightgreen lightred yellow 


Palette(3) valfri lightcyan lightmagenta white 
Plot procedur TURBO PASCAL 


Huvud Plot(x,y,color:integer); 

Beskrivning Tänder punkten (x,y) i färgen color. 
Klipps i aktivt fönster. 


16.6.3 Utökad grafik. 

Ytterligare grafikrutiner i Turbo Pascal version 3 finns tillgängliga i form av 
två filer, GRAPH.BIN och GRAPH.P, som skall ligga på samma skiva som Pascalkom- 
pilatorn. 

Grafikrutinerna får man i version 3 tillgång till genom att först i sina program 
skriva (*$I GRAPH.P *). I version 4 lägger man bara till raden uses Graph3 på 
vanligt sätt. 

Are procedur TURBO PASCAL 


Huvud Arc(x,y,v,r,color:integer) ; 

Beskrivning Ritar en cirkelbåge i färgen color. Cirkelbågen börjar i punkten 
(x,y), har radien r och upptar medelpunktsvinkeln v. Om vinkeln v 
är positiv ritas bågen medurs, annars moturs. 


Circle procedur TURBO PASCAL 


Huvud Circle(x,y,r,color:integer); 

Beskrivning Ritar en cirkel i färgen color med radien r och med medelpunkten i 
(x,y). 
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ColorTable procedur TURBO PASCAL 


Graph3 


Huvud ColorTable(c1,c2,c3,c4:integer) ; 

Beskrivning Definierar en översättningstabell för färgnummerna. 
Tabellen aktiveras i rutinerna 


Plot, Draw, Are, Circle, FillScreen, 

FillPattern och SetPenColor, 

om man i dessa som färgargument anger färgen -1. 

Exempel ColorTable(3,2,1,0) kommer att 'vända' på färgnummerna. 

Vid t ex Plot(50,50,-1) undersöks först vilket färgnummer punkten 
(50,50) har. Om den är ritad i 

färg 0 ritas punkten i färg 3, 

" 3 " " " " o! 


Vid t ex FillScreen(-1) kommer varje punkt i det aktuella fönstret 
att översättas och ritas om enligt översättningstabellen. 

FillScreen procedur TURBO PASCAL 


Huvud FillScreen(color:integer); 

Beskrivning Fyller hela det aktiva fönstret med färgen color. 
FillShape procedur TURBO PASCAL 


Huvud FillShape(x,y,fillcolor,bordercolor:integer); 

Beskrivning Fyller en innesluten area av godtyckligt utseende med färgen fill¬ 
color. Arean måste vara begränsad av färgen bordercolor. Punkten 
(x,y) kan ligga varsomhelst inuti arean. 


FillPattern procedur TURBO PASCAL 


Huvud FillPattern(x1,y1,x2,y2,color:integer); 

Beskrivning Fyller en rektangel definierad av koordinaterna x1,y1,x2,y2 med ett 
mönster i färgen color. Mönstret måste tidigare vara definierat med 
proceduren Pattern. 


GetDotColor funktion TURBO PASCAL 


Huvud GetDotColor(x,y:integer)rinteger; 

Beskrivning Returnerar färgnumret för punkten (x,y). 

Om (x,y) ligger utanför det aktuella fönstret returneras värdet -1. 


GetPic procedur TURBO PASCAL 


Huvud GetPic(var bufferrbuffertyp; xl,yl,x2,y2:integer); Kopierar inne- 

Beskrivning hållet av en rektangulär area definierad av koordinaterna x1,y1, 

x2,y2 till variabeln buffer, som kan vara av en godtycklig datatyp. 
Minimistorleken för variabeln buffer varierar med upplösningen. 

För 320*200 punkter är den ((bredd+3) div 4)*höjd*2+6, 

för 640*200 punkter är den ((bredd+7) div 8)*höjd+6, 

där bredd=abs(x1-x2)+1 och höjd =abs(y1-y2)+1. 
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Variabeln buffer börjar med ett huvud med tre heltal. 

Det första heltalet anger upplösningen och har värdet 1 för 640*200 
punkter och värdet 2 för 320*200 punkter. 

De två andra heltalen anger bredden resp höjden på rektangeln. 
Resten utgöres av bilddata. 

Pattern procedur TURBO PASCAL 


Huvud Pattern(var monster:monstertyp); 

Beskrivning Definierar det mönster som skall användas av FillPattern. 

Typen monstertyp = array[0..7] of byte. Varje byte i variabeln 
monster representerar en horisontell linje i mönstret där varje bit 
i en byte motsvarar en punkt. Mönstret är alltså 8 punkter brett 
och 8 punkter högt. 

Mönstret kan med fördel lagras i en typad konstant som t ex 

const 

monster : array[0..7] of byte = (170,85,170,85,170,85,170,85); 

Mönstret framgår om man skriver ut de decimala arrayelementen i 
binär form: 

170 = 1 0 1 0 1 0 1 0 

85 = 0 1 0 1 0 1 0 1 

170 = 1 0 1 0 1 0 1 0 

85 = 0 1 0 1 0 1 0 1 

170 = 1 0 1 0 1 0 1 0 

85 = 0 1 0 1 0 1 0 1 

170 = 1 0 1 0 1 0 1 0 

85 = 0 1 0 1 0 1 0 1 


När detta mönster används av FillPattern kommer punkter som motsva¬ 
ras av ettor att skrivas på skärmen medan nollor inte förändrar 
något. 

PutPic procedur TURBO PASCAL 


Huvud PutPic(var buffer:buffertyp; x,y:integer); 

Beskrivning Kopierar innehållet i variabeln buffer till en rektangulär area, 
där (x,y) utgör det nedre vänstra hörnet. I variabeln buffer har 
tidigare lagrats en bild med proceduren GetPic. 


16.6.4 Turtlegrafik. 

Turtlegrafiken får man tillgång till på samma sätt som för de utökade grafikru¬ 
tinerna . 

I Turtlegrafik är skärmen organiserad som ett koordinatsystem där origo (0,0) 
ligger mitt på skärmen, där x-axeln är riktad åt höger och y-axeln är riktad 
uppåt på skärmen. 

När sköldpaddan, the Turtle, rör sig på skärmen lämnar den ett spår efter sig om 
'pennan är nere'. 

Back procedur TURBO PASCAL 


Huvud Back(d:integer); 

Beskrivning Går d steg tillbaka. 0m d<0 går sköldpaddan framåt. 
ClearScreen procedur TURBO PASCAL 
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Huvud ClearScreen; 

Beskrivning Tömmer det aktiva fönstret och placerar sköldpaddan i origo med 
riktningen uppåt. 


Forwd procedur TURBO PASCAL 


Huvud Forwd(dist:integer); 

Beskrivning Går d steg framåt. Om d<0 går sköldpaddan bakåt. 
Heading funktion TURBO PASCAL 


Huvud Heading:integer; 

Beskrivning Returnerar den aktuella riktningen för sköldpaddan. Riktningen 

anges som en vinkel i intervallet 0..359, där vinkeln 0 är rakt upp 
och vinkeln räknas positivt medurs. 


HideTurtle procedur TURBO PASCAL 


Huvud HideTurtle; 

Beskrivning Gömmer sköldpaddan så att den inte syns. 
Home procedur TURBO PASCAL 


Huvud Home; 

Beskrivning Flyttar sköldpaddan till origo och låter den peka uppåt. 
NoWrap procedur TURBO PASCAL 


Huvud NoWrap; 

Beskrivning Kopplar bort möjligheten för sköldpaddan att, då den försvinner på 
den ena sidan av det aktiva fönstret, dyka upp på den andra sidan. 

PenDown procedur TURBO PASCAL 


Huvud 

Beskrivning 

PenDown; 

'Sätter ner pennan'. Sköldpaddan ritar en 

linje när den rör sig. 

PenUp 

procedur TURBO PASCAL 


Huvud 

Beskrivning 

PenUp; 

'Lyfter pennan'. Sköldpaddan lämnar inget 
rör sig. 

spår efter sig när den 

SetHeading 

procedur TURBO PASCAL 



Huvud SetHeading(riktning:integer); 

Beskrivning Vrider sköldpaddan till önskad riktning. 

Riktningen anges som en vinkel i intervallet 0..359, där vinkeln 0 
är rakt upp och vinkeln räknas positivt medurs. Om vinkeln ligger 
utanför detta intervall räknas den automatiskt om så att den hamnar 
i intervallet. Fyra fördeklarerade konstanter kan användas här: 
north=0, east=90, south=180 och west=270. 

SetPenColor procedur TURBO PASCAL 


Huvud SetPenColor(color:integer); 

Beskrivning Bestämmer färgen som sköldpaddan ritar med. 

Om color ligger i intervallet 0..3 används aktuell palett. 
Om color=-1 används aktuell färgtabell (ColorTable)« 
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SetPosition procedur TURBO PASCAL 


Graph3 


Huvud SetPosition^x,y:integer)$ 

Beskrivning Flyttar sköldpaddan till punkten (x,y) utan att den ritar. 
ShowTurtle procedur TURBO PASCAL 

Huvud ShowTurtle; 

Beskrivning Gör sköldpaddan synlig. Från början när Turtlegrafiken initierats 
är den osynlig. 

TurnLeft procedur TURBO PASCAL 

Huvud TurnLeft(v:integer); 

Beskrivning Vrider sköldpaddan v grader moturs räknat från aktuell riktning. 
TurnRight procedur TURBO PASCAL 

Huvud TurnRight(v:integer); 

Beskrivning Vrider sköldpaddan v grader medurs räknat från aktuell riktning. 
TurtleDelay procedur TURBO PASCAL 


Huvud TurtleDelay(n:integer); 

Beskrivning Sätter fördröjningen mellan varje steg som sköldpaddan tar till n 
millisekunder. Normalt finns ingen fördröjning. 

TurtleThere funktion TURBO PASCAL 

Huvud TurtleThere:boolean; 

Beskrivning Returnerar true om sköldpaddan är synlig i det aktiva fönstret. 

TurtleWindow procedur TURBO PASCAL 

Huvud TurtleWindow(x,y,b,h:integer); 

Beskrivning Definierar aktivt fönster för sköldpaddan. Fönstrets nedre vänstra 
hörn anges med (x,y), dess bredd är b och dess höjd är h. 
Riktningarna räknas precis som tidigare (se SetHeading) och origo 
(0,0) ligger mitt i fönstret. 

Xcor funktion TURBO PASCAL 

Huvud Xcor:integer; 

Beskrivning Returnerar sköldpaddans x-position. 

Ycor funktion TURBO PASCAL 

Huvud Ycor:integer; 

Beskrivning Returnerar sköldpaddans y-position. 

Wrap procedur TURBO PASCAL 

Huvud Wrap; 

Beskrivning Möjliggör för sköldpaddan att, då den försvinner på den ena sidan 
av det aktiva fönstret, dyka upp på den andra sidan. 
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16.7 Enheten Turbo3 


Turbo3 


16.7.1 Eördeklarerade variabler 

kbd TURBO PASCAL 


Deklaration kbd:text; 

Beskrivning Denna textvariabel gör det möjligt att läsa från tangentbordet som 
i program skrivna för version 3. 

Exempel I satsen 

Read(kbd,ch); 

kommer att läsas från textfilen kbd, dvs tangentbordet, ett tecken 
som läggs i variabeln ch av typen char. 

Observera att vid funktionstangenter tecknet här kommer att ha 
värdet 27 till skillnad från vad fallet är för ReadKey, se enheten 
Crt. 


cBreak 


TURBO PASCAL 


Deklaration cBreak:boolean absolute checkBreak; 

Beskrivning Denna deklaration gör variabeln cBreak identisk med variabeln 
checkBreak, se enheten System. 


16.7.2 funktioner och procedurer 
AssignKbd procedur TURBO PASCAL 


Huvud AssignKbd( var f:text); 

Beskrivning Kopplar textfilen f till tangentbordet. 

HighVideo procedur TURBO PASCAL 


Huvud HighVideo; 

Beskrivning Efter denna instruktion skrivs texten på skärmen i gul färg på 
svart bakgrund (färgsystem) eller i vit färg på svart bakgrund. 

IOResult funktion TURBO PASCAL 


Huvud IOResult:integer; 

Beskrivning Returnerar resultatet av den senaste I/O-operationen. 

För att funktionen skall fungera måste man ha stängt av kontrollen 
av I/O-fel med kompileringsdirektivet {$1-}. 

Alla returvärden utom returvärdet noll innebär att ett I/O-fel har 
inträffat och inga ytterligare I/O-operationer kan göras förrän 
IOResult anropats. 

LongfilePos funktion TURBO PASCAL 


Huvud LongFilePos( var f):real; 

Beskrivning Returnerar filpekarens position som ett flyttal. 
Kan ej användas på en textfil. 
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LongFileSize funktion TURBO PASCAL 


Turbo3 


Huvud LongFileSize(var f):real; 

Beskrivning Returnerar antalet komponenter i filen som ett flyttal. 

Kan ej användas på en textfil. 

LongSeek procedur TURBO PASCAL 

Huvud LongSeek(var f; x:real); 

Beskrivning Flyttar fram filpekaren till x:te elementet i filen. 

Kan ej användas på en textfil. 

Exempel LongSeek(f,LongFileSize(f)) ställer filpekaren till slutet av filen 

varigenom filen expanderas om nya element skrivs till filen. 

LowVideo procedur TURBO PASCAL 

Huvud LowVideo; 

Beskrivning Efter denna instruktion skrivs texten i ljusgrå färg på svart 
bakgrund. 

MaxAvail funktion TURBO PASCAL 

Huvud MaxAvail:integer; 

Beskrivning Returnerar storleken av det största sammanhängande utrymmet av det 
fria dynamiska minnet. Returvärdet anges som ett heltal och avser 
antalet paragrafer. En paragraf är 16 byten. 

MemAvail funktion TURBO PASCAL 


Huvud MemAvail; 

Beskrivning Returnerar storleken av det fria dynamiska minnet. Returvärdet 

anges som ett heltal och avser antalet paragrafer. En paragraf är 
16 byten. 

NormVideo procedur TURBO PASCAL 

Huvud NormVideo; 

Beskrivning Denna instruktion är likvärdig med HighVideo. 
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Appendix A 


RESERVERADE ORD. 

De understrukna orden är inte definierade i standardpascal. 


absolute 

file 

mod 

shr 

and 

for 

nil 

string 

array 

forward 

not 

then 

begin 

function 

of 

to 

case 

goto 

or 

type 

const 

if 

packed 

unit 

div 

implementation 

procedure 

until 

do 

in 

program 

uses 

downto 

inline 

record 

var 

else 

interface 

repeat 

while 

end 

interrupt 

set 

with 

external 

label 

shl 

xor 


EUMKTIOMSTANGEMTER. 



Funktionstangenterna ger alltid en sekvens av två koder som läses med 
ReadKey. Den första koden är alltid noll, (#0) och den andra koden ges 
len nedan. Angående ReadKey se avsnitt 3.2.1 Tangentbord. 


Andra koden 

Tangent 

Andra koden 

Tangent 

59 

Fl 

71 

Home 

60 

F2 

72 

Pil Upp 

61 

F3 

73 

PgUp 

62 

F4 

75 

Vänster Pil 

63 

F5 

77 

Höger Pil 

64 

F6 

79 

End 

65 

F7 

80 

Pil Ner 

66 

F8 

81 

PgDn 

67 

F9 

82 

Ins 

68 

Fl 0 

83 

Del 

133 

Fl 1 



134 

Fl 2 




funktionen 
av tabel- 
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Appendix B 


KOHPILERINGSDIREKTIV VER 4.0. 

Kompileringen kan kontrolleras med ett antal kompileringsdirektiv. I Turbo 
Pascal finns det tre typer av kompileringsdirektiv: omställningsbara direktiv, 
parameterdirektiv och villkorsdirektiv. 

1. Omställningsbara direktiv (på/av dvs +/-). 

En del av dessa kompileringsdirektiv tas upp i exempel i boken 

{$1-} I/O-kontrollen stängs av och felhanteringen överlåts till programmeraren. 
Detta gås igenom i avsnitt 13.6 Felhantering vid in och utmatningar. 

Kompileringsdirektivet. sätts på med plustecken, aktiv mod och stängs av med 
minustecken, passiv mod. Kompileringsdirektiv kan sättas på och stängas av på 
flera ställen i ett program. 

Kompileringsdirektiven ser ut precis som kommentarer med den skillnaden att kom¬ 
mentaren inleds med ett dollartecken $ och direkt därefter ett eller flera kom¬ 
pileringsdirektiv. Om flera kompileringsdirektiv anges skall dessa åtskiljas av 
kommatecken, t ex {$I-,B+,N+} 

Global eller lokal. 

Globala kompileringsdirektiv gäller hela programmet. Globala direktiv måste fin¬ 
nas före deklarationsdelen i programmet eller enheten som skall kompileras. 
Lokala direktiv gäller till dess att nästa direktiv dyker upp och kan finnas 
överallt i programmet, eller enheten. 

Globala kompileringsdirektiv kan också ställas i huvudmenyn i menyn Options/Com- 
piler. De kompileringsdirektiv som är angivna .i denna meny kopieras till början 
av den fil som editeras i editorn med hjälp av CTRL-F7. Om du inte ändrat i 
denna meny kommer kanske följande att skrivas i editorn om du trycker på 
CTRL-F 7. 

{$R-,S+,I+,D+,T- > F-,V+,B-,N-,L+} 

{$M 16384,0,635360} 

Kompileringsdirektiv i inciudefiler. 

Ett kompileringsdirektiv som är satt i huvudprogrammet gäller också i includefi- 
.lerna, om det saknas kompileringsdirektiv i dessa. Om det däremot finns kompile¬ 
ringsdirektiv i en includefil så gäller dessa i includefilen . Om ett kompile¬ 
ringsdirektiv ställs om i en includefil så återställs kompileringsdirektivet när 
kompileringen återgår till huvudprogrammet. Kompileringsdirektiven kan jämföras 
med lokala och globala variabler. 

Kontrolla att deklarerade gränser ej överskrids, Range-Checking/Vidd-kontroll. 

{$R+} eller {$R-> 

Standard är passiv mod {$R—} och direktivet är lokalt. 

I aktiv mod {$R+} kontrolleras att deklarerade arrayer, variabler och strängar 
håller sig inom sina deklarerade områden. Se exempel 2.17 i avsnitt Konvertering 
mellan datatyper av heltalstyp och flyttalstyp. Eftersom {$R+} sänker exekve- 
ringshastigheten bör detta ställas om till passiv mod {$R—} när programmet är 
uttestat. Motsvaras av Options/Compiler/Range checking. 
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Utvärdering av logiska uttryck, Boolean Evaluation. 

{$B+} eller {$B-} 

Standard är passiv mod {$B-} och direktivet är lokalt. 

Detta direktiv gäller för utvärdering av booleska uttryck med operatorerna or 
och and. Om man anger aktiv mod {$B+} kommer garanterat varje villkor i det 
logiska uttrycket att utvärderas. Anges passiv mod {$B—} kommer utvärderingen 
att avslutas så snart ett av villkoren är falskt. Se vidare avsnitt 3.4 Priori- 
teringsordning för operatorer. Motsvaras av Options/Compiler/Boolean evaluation. 

In/Utmatnings test, Input/Output Checking. 

{$1+} eller {$1-} 

Standard är passiv mod {$1-} och direktivet är lokalt. 

I passiv mod {$1-} måste I/O fel tas om hand med hjälp av funktionen IOResult. 

I aktiv mod {$1+} kommer exekveringen att avstanna med felmeddelande om någon 
I/O procedur returnerar ett värde som är skilt från noll. Se vidare avsnitt 13.6 
Felhantering vid in och utmatning. Motsvaras av Options/Compiler/I/O checking. 

Matematikprocessor, 8087/80287/80387. 

{$N+} eller {$N-} 

Standard är passiv mod {$N-} och direktivet är globalt. 

I avsnittet Datatyper för heltal och flyttal, kapitel 2 beskrivs datatyperna 
single, double, extended och comp som är av typen flyttal. Om en matematikpro¬ 
cessor finns i datorn skall direktivet {$N-t-} anges för att få tillgång till 
datatyperna single, double, extended och comp. 

Motsvaras av Options/Compiler/Numeric processing. 

Debug Information. 

{$D+} eller {$D—} 

Standard är aktiv mod {$D+} och direktivet är globalt. 

Motsvaras av Options/Compiler/Debug information. 

Aktiv mod {$D+} ger möjlighet för Turbo Pascal att lokalisera felet i källkoden. 
Om ett reellt tal matas in i exemplet nedan kommer markören att ställa sig vid 
platsen för felet dvs vid readln(tal) och ett felmeddelande visas på skärmen om 
direktivet är i aktiv mod {$D+} 







Om direktivet är i passiv mod {$D-} kan inte Turbo Pascal lokalisera felet i 
källkoden. 


File Edit Run Compile Options 

Edit ..--- 

Line 1 Col 5 Insert Indent A:NONAME.PAS 

t$D-> 

program Direktiv; 
uses Crt; 

var tal : integer; 
beg in 
ClrScr; 

WriteCAnge ett tal: ’); 

Readln(tal); i , .- ■ Error =■■—> ■ ■ ■ . 

WritelnC'Talet Module has no debug information (DIREKTIV). Press ESC. 
end. I k--' —--- 


- Output 

Ange ett tal: 23.456 
Runtime error 106 at 0000:005D. 


Fl-Help Esc-Abort 


Om runtime error uppstår i enheter som används av huvudprogrammet, kan Turbo 
Pascal lokalisera felet om direktivet är i aktiv mod {$D+}. Turbo Pascal kommer 
då att placera denna enhet i editorn och markera i källkoden var felet ligger. 
För att hitta tillbaka till tidigare fel i en fil använd CTRL-Q-W. Om du däremot 
inte har den aktuella filen i editorn, men vill komma åt ett speciellt fel, 
måste huvudprogrammet laddas i editorn och därefter kan felet lokaliseras med 
Compile/Find error i huvudmenyn. 

Adressering till godtyckligt segment. 

{$F+} eller {$F-} 

Standard är passiv mod {$F-} och direktivet är lokalt. 

Motsvaras av Options/Compiler/Force far calls. 

CPUn 8086 använder två sätt för att nå minnesceller. Adresser och återhoppsad- 
resser är antingen korta, 16-bitarsord, eller långa, 32-bitarsord. Med direkti¬ 
vet {$F-} väljer Turbo Pascal automatiskt rätt användningssätt. Däremot väljs 
alltid 32-bitarsord om direktivet är i aktiv mod {$F+}. 

Buffrad länkning. 

{$L+} eller {$L-} 

Standard är aktiv mod {$!_+} och direktivet är globalt. 

Motsvaras av Options/Compiler/Link buffer. 

Länkaren i Turbo Pascal arbetar i två faser. I den första fasen markeras de pro¬ 
cedurer som använder andra procedurer i TPU-filer. I andra fasen bildas en EXE- 
fil. Med direktivet i aktiv mod {$L+} kommer TPU-filerna att finnas i minnet 
under andra fasen. Med direktivet i passiv mod {$L—} läses TPU-filerna in en 
gång till under andra fasen. Detta innebär bl a att direktivet {$L—} medför 
långsammare länkning och kräver större minnesåtgång. 


331 





Stack Overflow test. 


{$S+} eller {$S-} 

Standard är aktiv mod {$S+} och direktivet är lokalt. 

Motsvaras av Options/Compiler/Stack checking. 

Med direktivet i aktiv mod {$S+} kontrolleras att det finns tillräckligt med 
minne på stacken vid varje funktions- och proceduranrop. Om det ej finns till¬ 
räckligt med minne uppstår exekveringsfel. 

Skapa TPM-filer. 

{$T+} eller {$T-} 

Standard är passiv mod {$ T —} och direktivet är globalt. 

Motsvaras av Options/Compiler/Turbo pascal map file. 

Med kompileringsdirektiven {$T+} och {$D+} skapas en TPM-fil, om ett program 
kompileras till diskett eller hårddisk. Denna fil innehåller information om bl a 
adresserna till funktioner och procedurer i EXE-filen . för att få information 
angående hela programmet dvs även enheter måste dessa vara kompilerade med aktiv 
mod {$D+}. Eftersom TPM-filer inte kan läsas med hjälp av editorn skapas en läs¬ 
bar fil med programmet TPMAP.EXE. Detta program ger som resultat en MAP-fil 

Exempel Bl. 

{$T+} 

{$D+} 

program Kompdir; 
var tal : integer; 

begin 

Write('Ange ett tal: ' j $ 

Readln(tal); 

Writeln( 'Talet i kvadrat är ',sqr(tal)); 

end. 


Var- och string test. 

{$V+} eller {$V-} 

Standard är aktiv mod {$V+} och direktivet är lokal. 

Motsvaras av Options/Compiler/Var-string checking. 

{$Vh-} möjliggör en strikt kontroll av att formella och aktuella varparametrar, 
deklarerade som typen string, överensstämmer med deklarerad stränglängd. 

2. Parameterdirektiv. 

Includefiler. 

{$1 filnamn} 

Direktivet är lokalt. 


Programmet Kompdir kompileras till 
disk eller hårddisk. Som resultat 
fås en EXE-fil och en TPM-fil. 

Med kommandot 

C:\>tpmap komp 

erhålles filen KOMPDIR.MAP som kan 
läsas med hjälp av editorn. 
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Detta direktiv talar om för kompilatorn att filen skall inkluderas i programmet, 
s k includefil. Filen kommer att placeras i filen direkt efter direktivet. Om 
inget annat anges kommer filens extension att tolkas som PAS. Om ingen katalog 
anges kommer kompilatorn att söka efter includefilen i den aktuella katalogen. 
Katalog som includefilerna finns i kan också anges i huvudmenyn Options/Directo- 
ries/Include directories. Se vidare avsnitt 9.3 Includefiler. 

Fördelning av minnet. 

($M stacksize.minheap,maxheap} 

Direktivet är globalt. 

Direktivet specificerar uppdelningen av minnesarean. Stacksize måste vara ett 
heltal mellan 1024 och 63320, vilket talar om hur stort det segment skall vara 
som är stacken. Minheap anger heapens storlek och måste vara mellan 0 och 
655360, maxheap dvs maximum av heapen måste vara mellan värdet av minheap och 
655360. Direktivet har ingen verkan om det används i en enhet. Det kan också 
ställas i Options/Compiler/Memory size. Se vidare avsnitt 12.5 Minnesarea. 

Enheter. 

{$U filnamn} 

Direktivet är lokalt. 

Detta direktiv har ingen effekt om det inte förekommer före enhetsnamnet efter 
det reserverade ordet uses. Här kan namnet på den fil anges i vilken den sökta 
enheten finns, om enheten och filen har olika namn. 

I Options/Directories/Unit directories anges den eller de kataloger som enheter¬ 
na finns i. Om flera kataloger anges skall dessa särskiljas med ett semikolon 
(;)• 

Se vidare avsnitt 10.3 Olika sätt att arbeta med Pascalenheter/Kompilera enhe¬ 
ter . 

Länkning av objektfiler. 

{$L filnamn} 

Direktivet är lokalt. 

Talar om att en objektfil skall länkas till ett program eller en enhet. 

Turbo Pascal letar först efter OBJ-filer i den aktuella katalogen och därefter i 
den katalog som anges i Options/Directories/Object directories. 

3. Villkorskompilering. 

Med hjälp av villkorskompilering kan programmeraren själv ställa villkor på 
vilka delar av programmet som skall kompileras. Villkorskompilering påminner 
mycket om villkorsprogrammering i Pascal. 

Exempel B2. 

Jämför med if-satsen 

{$IFDEF kompileringsvariabel} 

<om kompileringsvariabeln är definierad skall följande kompileras> 
($ENDIF} 

{$IFDEF...} kontrollerar om kompileringsvariabeln är definierad, om så är fallet 
kompileras satsen eller satserna mellan {$IFDEF...} och {$ENDIF}. 
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Jämför med if-then-else satsen 


{$IFDEF kompileringsvariabel} 

<om kompileringsvariabel är definierad skall följande kompileras> 
{$ELSE} 

<annars skall följande kompileras> 

{$ENDIE} 


Definiera kompileringsvariabler. 

Kompileringsvariabler kan definieras med {$DEFINE kompileringsvariabel) eller i 
menyn Options/Compiler/Conditional defines. 

FiLe Edit Run Compile Options 


■-— -.—.--. Etm l-1 .- 

Line 1 CoL 1 Insert Indent | Compiler 


Range checking Off 

Stack checking On 

I/O checking On 

Debug information On 

Turbo pascal map file Off 

Force far calls Off 

Var-string checking Strict 

Boolean evaluation Short Circuit 

Numeric Processing Software 

Link buffer Memory 

Conditional defines 






Fl-Help Esc-Abort 


Kompileringsvariablerna definieras genom att deras namn skrivs i Options/Compi¬ 
ler/Conditional defines. Om flera kompileringsvariabler skall definieras måste 
dessa skiljas åt med semikolon (;). 


Exempel B4. 

program Komp; 

var tal, tal2 : integer; 
begin 

tal := 24; 
tal2 := 50; 

($IFDEF TEST) 

Writeln('Tal = ',tal); 
{ $EiMDIF } 

Writeln( 'Tal2 = ',tal2); 

end. 


I programmet Komp kommer bara "Tal2 = 50" att 
skrivas ut. 

Definieras TEST i Options/Compiler/Conditio¬ 
nal defines så kommer även 

"Tal = 24" att skrivas ut. 

TEST kan också definieras med {$DEEINE TEST) 
direkt i källkoden. 


Styrande kompileringsdirektiv. 

Kompileringsvariabler påminner om booleska variabler dvs antar värdet false, ej 
definierad eller true, definierad. Kompileringsvariabler följer samma regler som 
identifierarna i Pascal. 
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DEEINE 


($DEFIME kompileringsvariabel} 

Definierar kompileringsvariabeln. Har ingen effekt på redan definierad kompile¬ 
ringsvariabel . 

UNDEE 

{$UNDEF kompileringsvariabel} 

Tar bort definierad kompileringsvariabel. Har ingen effekt på redan odefinierad 
kompileringsvariabel. 

IEDEE 

{$IFDEF kompileringsvariabel} 

Kompilerar källkoden som följer om kompileringsvariabeln är definierad. 

IFNDEE 

{$IFNDEF kompileringsvariabel} 

Kompilerar källkoden som följer om kompileringsvariabeln är odefinierad. 


IEOPT 

{$IFOPT x+} 

Kompilerar källkoden som följer om x är aktiv, x är en av de omställbara direk¬ 
tiven B, D, F, I, L, N, R, S, T eller V. 

{$IFOPT x-} 

Kompilerar källkoden som följer om x är passiv. 


{$IF0PT N+} Om kompileringsdirektivet är i aktiv mod {$N+} 

type real = extended; kompileras koden type real = extended; 

{$ENDIF} 

ELSE 

{$EL SE} 

Används tillsammans med {$IFxxx} och {$ENDIF}, jmf if-then-else konstruktionen. 


ENDIE 

{$ENDIF} 

Avslutar {$IFxxx} konstruktionen. 
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IFxxx direktiv måste kompileras i en fil , vilket innebär att direktivet inte kan 

starta i en fil och avslutas i en annan. Däremot kan IFxxx ställa villkor på 

vilka includefiler som skall inkluderas i ett program. 

{$IFxxx} 

{$1 FILI.PAS} 

{$ELSE} 

{$1 FIL2.PAS} 

{$ENDIF} 

Standard kompileringsvariabler. 

VER40 Anger att versionen av Turbo Pascal är 4.0. Nyare versioner kommer 

att få t ex VER41 som då motsvaras av ver 4.1. Alltid definierad. 

MSDOS Anger att operativsystemet är MS-DOS eller PC-DOS om denna version 

av Turbo Pascal används. Varje Turbo Pascal ger sin version. Alltid 
definierad. 

CPU86 Anger att processorn tillhör 80x86 familjen. Alltid definierad. 

CPU87 Avgör om en matematikprocessor finns i datorn vid kompileringen. 

Se exempel Bl. 


Exempel B5. 

Om datorn innehåller matematikprocessor skall denna användas dvs kompileringsdi- 
rektivet skall vara i aktiv mod {$N+} annars i passiv mod {$N—}. Detta kan då 
styras med kompileringsvariabeln CPU87, som blir definierad om det finns en 
matematikprocessor eller ej i datorn. 

{$IFDEF CPU87} Om matematikprocessor finns 

{$N+} utvidgas det reella talområdet 

{$ELSE} annars 

{$N—} ej 

{$ENDIF} slut 
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Appendix C 


ASCII-TABELL. 


ASCII Control 

value Character character 


ASCII ASCII 

value Character value Character 


000 (null) NUL 

001 © SOH 

002 © STX 

003 V ETX 

004 ♦ EOT 

005 ♦ ENQ 

006 ♦ ACK 

007 (beep) BEL 

008 O BS 

009 (tab) HT 

010 (line feed) LF 

011 (home) VT 

012 (form feed) FF 

013 (carriage return) CR 

014 SO 

015 SI 

016 ► DLE 

017 DC1 

018 \ DC2 

019 !! DC3 

020 T DC4 

021 § NAK 

022 — SYN 

023 i ETB 

024 \ CAN 

025 \ EM 

026 — SUB 

027 — ESC 

028 (cursor right) FS 

029 (cursor left) GS 

030 (cursor up) RS 

031 (cursor down) US 


032 (space) 

033 ! 

034 

035 # 

036 $ 

037 % 

038 & 

039 

040 ( 

041 ) 

042 * 

043 + 

044 

045 

046 


047 / 

04 8 0 

049 1 

050 2 

051 3 

052 4 

053 5 

054 6 

055 7 

056 8 

057 9 

058 : 

059 ; 

060 < 

061 

062 > 

063 ? 

064 @ 

065 A 

066 B 

067 C 

068 D 

069 E 

070 F 

071 G 

072 H 

073 I 

074 J 

075 K 

076 L 

077 M 

078 N 

079 O 

080 P 

081 Q 

082 R 

083 S 

084 T 

085 U 

086 V 

087 W 

088 X 

089 Y 

090 Z 

091 [ 

092 \ 

093 ] 


094 A 

095 - 

096 

097 a 

098 b 

099 c 

100 d 

101 e 

102 f 

103 g 

104 h 

105 i 

106 j 

107 k 


109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 


P 

q 


} 

O 

Q 
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Sakregister 


A 




Beräkningsuttryck 

11 



Abs 

54 

279 

323 

BGI 

69 

70 

308 

Absolut adressering 

209 



Bibliotek 

286 



Absolutbelopp 

54 



Bildsidor 

303 

310 


Absolute 

326 

328 


Bildskärmen 

8 

19 

58 273 

Absolutvärdet 

279 



BIN0BJ 

309 



Ada 

6 



Binära 

10 

24 

273 

Addition 

16 



Bit 

10 

314 


Addr 

174 

288 


Bitoperatorerna 

23 



Adress 

174 

276 


BkSlashFill 

77 

304 


Adressrutiner 

288 



Black 

59 



ALGOL 

5 



Blink 

60 



Alt 

222 



BlockRead 

283 

309 


And 

28 

29 

30 

BlockWrite 

283 



AndPut 

305 



Blue 

59 



Animation 

88 



Boolean 

27 

37 


ANSI/IEEE770X3 

273 



BottomText 

84 



Apostrofer 

7 

10 


Brown 

59 



Append 

282 



BufEnd 

297 



Are 

79 

80 

314 321 

Buffertvariabel 

198 



ArcCoordsType 

307 



Buffrad länkning 

331 



ArcCos 

144 



Build 

157 

227 


Archive 

296 



BW40 

58 

291 


ArcTan 

144 

279 


BW80 

58 

291 


Areasatsen 

144 







Argument 

58 

68 

78 128 

C 




Aritmetiska uttryck 

11 

23 


C040 

291 



ARRAY 

100 



C080 

291 



Array-deklarationer 

100 



C40 

58 

291 


Array-strukturer 

100 

102 


C80 

58 

291 


ASCII-tabellen 

91 
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Case-else-satsen 

51 



Aspektförhållandet 

315 



Case-satsen 

49 



Assign 

196 

282 


CBreak 

326 



AssignCrt 

293 



CenterLn 

304 



AssignKbd 

326 



CenterText 

84 



ATT400 

303 



CGA 

68 

71 

292 303 

Autodetektion 

303 



Char 

9 

90 

91 

Avbrottshanterare 

300 



ChDir 

208 

286 


Avbrottsrutin 

236 

300 

301 

CheckBreak 

291 

326 


Avinstallera 

67 



CheckEof 

291 



Avklippta 

51 



CheckSnow 

292 



Avkorta 

24 



CHN-filer 

242 



Avrunda 

52 

281 


Chr 

91 

280 


Avståndsformeln 

247 



CHR-filer 

319 







Circle 

79 

314 






Cirkelbåge 

79 

314 






Cirkelsektor 

315 



B 




ClearDevice 

81 

310 


Babbage 

3 



ClearScreen 

323 



Backgroundcolor 

60 



ClearViewPort 

82 

310 


Backspace 

231 

235 


Clip 

306 



Backup 

226 

228 


ClipOff 

81 

305 


Bakgrundsfärg 

60 



ClipOn 

81 

305 


Bar 

78 

312 


Close 

196 

283 


Bar3D 

78 

312 


CloseDotFill 

77 

304 


Bar3D-konstanter 

305 



CloseFunc 

297 



BASIC 

5 



CloseGraph 

69 

307 


Begin-end 

33 



ClrEol 

62 

293 






ClrScr 

8 

62 

293 
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COBOL 

5 



Downto 

40 

328 

Colors 

306 



Draw 

320 


ColorT able 

322 



DrawPoly 

312 


Com-fil 

216 

242 


Drivrutinfiler 

69 


Comp 

10 



Drivrutinkonstanter 

303 


Compile 

130 

226 


Dseg 

288 


Concat 

96 

282 


Dynamiska variabler 

171 


CONFIG.SYS 

195 






Const 

14 






Copy 

96 

216 

282 

E 



Cos 

279 



E-logaritmen 

55 

279 

Cosinussatsen 

144 



East 

320 


CPU86 

336 



Edit 

218 

219 

CPU87 

336 



Editeringskommandon 

230 

235 

CR/LF 

278 

283 





Crt 

8 

57 

291 

Editorn 

234 


Cseg 

288 



EDLIN 

215 


CTRL+tangent 

229- 

-236 


EGA 

303 


Cyan 

59 



EGENDEKLARERADE TYPER111 






Ellipse 

79 






Else 

34 

51 

D 




EmptyFill 

77 

304 

Darkgray 

59 



ENDIF 

333 


DashedLn 

304 



Enhet 

146 

272 

DATABITEN 

236 



Environment 

228 


Dataport 

277 



Eof 

198 

283 

Datatyper 

9 

20 

27 91 

Eoln 

202 

283 


111 

115 

160 

Eoln-markering 

203 


DateTime 

296 



Erase 

284 


Debug information 

330 



Eratosthenes 

107 


Debugger 

236 



Error, find 

227 


Dec 

43 

280 


run-time 

331 


Decimaltecken 

9 



ErrorAddr 

276 


DefaultFont 

83 

305 


Esc 

223 


DEFINE 

334 



Euklides 

134 


Deklarationsdel 

14 



Evighetsloop 

41 


Delay 

46 

293 


Exec 

298 


Delete 

98 

281 


Exekvera 

216 


DelLine 

293 



Exit 

46 

289 

Delmängd 

114 

115 


ExitCode 

276 


Detect 

67 

303 


ExitProc 

275 


DetectGraph 

307 



Exp 

55 

279 

Direction 

306 



Extended 

10 

330 

Directories 

228 

229 


Extern fil 

195 


Directory 

226 

296 


External 

149 

328 

DirectVideo 

292 






Direktaccess 

272 






Direktadressering 

209 



F 



Direktfil 

209 



False 

9 

27 

Direktiv 

228 

329 


FAuxiliary 

296 


DiskFree 

298 



FCarry 

296 


DiskSize 

298 



Felhantering, fil 

206 


Dispose 

176 

286 


Felkoder, grafik 

304 


Div 

23 



Filattribut 

296 


Do 

328 



File, typad 

196 


Dos 

296 



otypad 

273 


DosError 

298 



FileMode 

276 


DosExitCode 

298 



FilePos 

201 

284 

DottedLn 

304 



FileSize 

201 

284 

Double 

10 

330 


Filhantering 

195 



340 



Fill 

297 




FillChar 

288 




FillPattern 

322 




FillPatternType 

306 




FillPoly 

313 




FillScreen 

322 




FillSettingsType 

306 




FillShape 

322 




Filnamn, fysiskt 

197 

221 



Filpekare 

198 




Filposition 

198 




Filslutsmarkering 

198 




Filslutsmärke 

291 




Filstatuskonstanter 

296 




Filstruktur 

198 




Filtyp 

193 

198 

202 

282 

Filvariabel 

193 

196 



FindFirst 

299 




FindNext 

299 




Flaggregister 

296 

297 



Flexskiveenhet 

217 




FloodFill 

77 

313 



Flush 

284 




FlushF unc 

297 




Flyttal 

9 

10 



FmClosed 

296 




FmlnOut 

296 




Fmlnput 

296 




FmOutput 

296 




F ont 

85 

305 

309 


F ont8x8 

58 

291 



For-satsen 

38 




Formella parametrar 

128 




FORTRAN 

5 




Forward 

130 




F orwarddeklaration 

130 




F orwd 

324 




FOverFlow 

296 




FParity 

296 




F rac 

53 

279 



F reeMem 

286 




F reeMin 

275 




F reePtr 

275 




F rekvenstabell 

103 




FSign 

296 




F unktioner 

133 




F unktionstangent 

65 




F yllmönster 

77 

304 

314 


FZero 

296 




Fält 

160 




Färgkarta 

321 




Färgkonstanter 

291 




Färgval 

59 

71 

315 

316 

Fönster 

63 

80 

295 

310 


320 

325 



Fönsterkoordinater 

63 




Fördröjningsrutin 

46 





G 


GetArcCoords 

315 


GetAspectRatio 

315 


GetBkColor 

315 


GetColor 

315 


GetDate 

299 


GetDir 

286 


GetDotColor 

322 


GetFAttr 

299 


GetFillPattern 

313 


GetFillSettings 

313 


GetFillStyle 

304 


GetFTime 

299 


GetGraphMode 

308 


Getlmage 

317 


GetlntVec 

300 


GetLineSettings 

311 


GetMaxColor 

70 


GetMaxX 

70 


GetMaxY 

70 


GetMem 

287 

309 317 

GetModeRange 

308 


GetPalette 

316 


GetPic 

322 


GetPixel 

311 


GetTextSettings 

318 


GetTime 

300 


GetViewSettings 

310 


GetX 

310 


GetY 

310 


Globala variabler 

122 


direktiv 

21 


pekare 

189 


GothicF ont 

83 

305 

Goto 

328 


GotoXY 

19 

293 

Grafikenheten 

67 


Grafikfönster 

80 


Grafikmarkör 

72 


Grafikmod 

68 

303 

GrafikStomme 

67 


Graph 

67 

303 

Graph3 

320 


GraphBackground 

320 


GraphColorMode 

320 


GraphDefaults 

308 


GraphErrorMsg 

69 

309 

GraphFreeMemPtr 

307 


GraphGetMemPtr 

307 


GraphResult 

69 

307 

GraphWindow 

320 


Green 

59 

291 

GrError 

304 


GrFileNotF ound 

304 


GrFontNotFound 

304 


GrlnvalidDeviceNum 

304 


GrlnvalidDriver 

304 


GrlnvalidE ont 

304 


GrlnvalidE ontNum 

304 


GrlnvalidMode 

304 



341 





GrIOError 

304 

InitGraph 

68 

308 



GrNoFloodMem 

304 

Initieringsdel 

149 




GrNoFontMem 

304 

Inline 

328 




GrNoInitGraph 

304 

InOutFunc 

297 




GrNoLoadMem 

304 

Input 

274 




GrNoScanMem 

304 

Input/Output Checking330 




GrNotDetected 

304 

INS 

229 




GrOk 

68 304 

Insert 

97 

281 





Inskjutning 

230 






InsLine 

293 




H 


Insticksmetoden 

104 




Halt 

289 

Int 

53 

279 



Handle 

296 297 

Integrerad miljö 

215 




HatchFill 

77 304 

Intensitet 

60 




Heading 

324 

Interface 

149 

328 



Heapen 

175 333 

InterleaveFill 

77 

304 



HeapError 

275 

Intern fil 

195 




HeapOrg 

274 

Interrupt 

328 




HeapPtr 

275 

Interrupthanterare 

300 

301 



Help 

223 

Intr 

300 




Heltal 

9 10 

IOresult 

206 

284 

326 

330 

Heltalsdel 

23 






Heltalsdivision 

23 24 






Heltalsområde 

16 

K 





HercMono 

303 

Kaströrelse 

88 




Hi 

289 292 

Katalog (bibliotek) 

216 




Hidden 

296 

Kbd 

65 

326 



HideTurtle 

324 

Keep 

300 




HighVideo 

60 293 326 

KeyPressed 

47 

293 



HiMode 

308 

Klippning 

81 

305 



HiRes 

320 

Kompilator 

214 

215 



HiResColor 

321 

Kompilera enheter 

156 




Hjälpmeny 

148 224 

Kompileringsdirektiv 

21 

29 

41 

47 

Home 

324 


156 

206 

228 

329 

Horiz 

306 

Kompileringsfel 

220 




HorizDir 

83 305 

Kompileringsvariabel 

334 




Huvudprogram 

121 

Konstanter 

14 




Hårddisk 

216 

Konvertering 

20 

98 



Högerjusterat 

13 

Källprogram 

214 




Högtalare 

65 






I 


L 

Label 

328 




I/O-fel 

206 284 326 

Lagra fil 

196 




I/O-kontroll 

206 329 

program 

221 




Id-värde 

209 210 

LastMode 

58 

292 



Identifierare 

8 

LeftText 

84 

305 



If-then 

31 

Length 

94 

282 



If-then-else 

34 

Lg 

55 




IFDEF 

333 

Lightblue 

59 




IFNDEF 

335 

Lightcyan 

59 




IFOPT 

335 

Lightgray 

59 




IF xxx 

335 

Lightgreen 

59 




ImageSize 

317 

Lightmagenta 

59 




Implementation 

149 328 

Lightred 

59 




In 

116 

Likhetstecken 

15 




Inc 

43 280 

Likvärdiga vektorer 

102 




Include directories 

229 

Line 

72 

311 



Includefil 

143 329 

LineFill 

77 

304 



Indent 

229 

LineRel 

72 

311 




342 



LineSettingsType 

306 


N 



LineStyle 

306 


N-fakultet 

136 


LineTo 

73 

312 

Neumann 

4 


L isp 

6 


New 

172 


Lista länkad 

176 


Nil 

176 


Ljud 

66 


NormalPut 

305 

317 

Ln 

33 

279 

NormVideo 

60 

294 327 

Lo 

289 


NormWidth 

304 


Load 

225 


North 

320 


Logiska operatorer 

28 


NoSound 

66 

294 

Lokal 

122 

329 

Not 

28 

328 

LongFilePos 

326 


NotPut 

305 

318 

LongFileSize 

327 


NoWrap 

324 


Longint 

10 





LongSeek 

327 





Lovelace 

3 


0 



LowToUp 

168 


OBJ-filer 

333 


LowVideo 

60 

294 327 

Odd 

53 

280 

Lst 

20 

147 302 

Of 

328 


LtBkSlashFill 

77 

304 

Offset-adress 

272 


LtSlashFill 

77 

304 

Ofs 

287 

288 

Länkad lista 

176 


OpenFunc 

297 


Lågnivårutiner 

288 


Options, Compiler 

227 





0r 

28 

328 




Ord 

91 

280 

M 



Ordningsnummer 

91 


Magenta 

59 

291 

OrPut 

305 


Make 

157 

226 

Overflow 

21 

25 332 

MAP-fil 

332 





Matematikprocessor 

10 

330 336 




Matris 

103 


P 



MaxAvail 

287 


Packed 

328 


MaxColors 

304 


PackTime 

300 


Maxlnt 

16 

111 274 

Palette 

321 


MaxLonglnt 

16 

274 

PaletteType 

306 

316 

MCGA 

68 

303 

Paragraf 

327 


Mem 

277 


ParamCount 

290 


MemAvail 

287 

327 

Parameterbegreppet 

127 


MemL 

277 


Parameterdirektiv 

332 


MemW 

277 


Parameterklasser 

128 


Minnesallokering 

275 


ParamStr 

290 


Minnescell 

9 

10 277 

Path 

69 

282 

Mkdir 

286 


Pattern 

306 

323 

Mode 

296 

297 

PC3270 

303 



309 

310 

PEKARE 

171 


Modkonstanter text 

291 


PenDown 

324 


Modula-2 

5 


PenUp 

324 


Morgan 

4 


Pi 

18 

279 

Move 

289 


Pick 

225 


MoveRel 

72 

311 

Pictures 

317 


MoveTo 

72 

311 

PieSlice 

315 


MsDos 

300 


Piltangenterna 

230 


Multidimensionella 

102 


Pixel 

71 


Mängder 

115 


Plot 

321 


Märkning av text 

232 


Pointer 

9 

272 




PointType 

306 





Pos 

95 

282 




Post 

160 





Power 

142 





Pred 

111 

280 


343 



PrefixSeg 

274 




Seek 

201 

285 

Primary file 

227 




SeekEof 

285 


Primtal 

107 




SeekEoln 

285 


Printer 

20 

302 



Seg 

287 

288 

Private 

296 

297 



Segment 

272 

331 

Procedurdeklaration 

120 




SelectionSort 

106 


-huvud 





Set 

115 

328 

-kropp 





SetActivePage 

310 


Programhuvud 

7 




SetAllPalette 

316 


Prolog 

6 




SetBkColor 

316 


Ptr 

287 




SetColor 

71 

317 

Punktnoterat 

179 




SetDate 

301 


Putlmage 

317 




SetEAttr 

301 


PutPic 

323 




SetFillPattern 

314 


PutPixel 

71 

311 



SetFillStyle 

77 

313 






SetFTime 

301 







SetGraphBufSize 

309 


R 





SetGraphMode 

309 


Radslutsmarkering 

202 




SetHeading 

324 


RAM-minnet 

157 

174 



SetlntVec 

301 


Random 

54 

290 



SetLineStyle 

312 


Randomize 

54 

290 



SetPalette 

317 


RandSeed 

276 




SetPenColor 

324 


Range-checking 

22 




SetPosition 

325 


ReadKey 

65 

294 



SetTextBuf 

278 


Readln 

16 

278 



SetTextJustify 

84 

318 

ReadOnly 

296 




SetTextStyle 

319 


Record 

160 




SetTime 

301 


RecSize 

296 




SetUserCharSize 

319 


Rectangle 

77 

313 



SetViewPort 

81 

310 

Red 

59 

291 



SetVisualPage 

310 


RegisterBGIdriver 

309 
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Stefan Njord/Lars Sandmark 

Turbovägen till Pascal-programmering i Turbo Pascal 4.0 

Denna lärobok är anpassad för och bygger på T urbo Pascal Version 4.0. Den innehåller 
ett stort antal fullständiga program och övningsuppgifter som tillsammans med teorin 
effektivt ger en förståelse för programmeringsspråket Pascal och finesserna med 
Turbo Pascal ver. 4.0. 

Boken börjar med enkel pascalprogrammering, fortsätter med datatyper, styrande 
satser, grafik, procedurer, funktioner, moduler, poster, pekare, sekventiella filer och 
direktfiler samt avslutas med en fullständig beskrivning av fördeklarerade funktioner, 
procedurer och konstanter i Turbo Pascal 4.0. , ' *< •• T*-" 

För dig som arbetat mecf Pascal men inte är bekant med den speciella programme¬ 
ringsmiljö som Turbo Pascal innebär med ordbehandling, kompilering osv, finns 
kapitel 14 som i detalj förklarar hur pascalprogram skapas, sparas och körs. 

Materialet har under tre år vuxit fram i undervisningsmiljö vid tekniskt gymnasium. 
Boken vänder sig till rena nybörjare, men har ett sådant innehåll att den även har 
mycket att ge en van pascalprogrammerare. 

Boken lämpar sig både som undervisningsmaterial för lärarledd undervisning i 
pascalprogrammering och^för självstudier. 

Till boken finns diskett med alla programmen. Beställ direkt från Studentlitteratur. 
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till sin tmdén/isning i matematik. 

Lars Sandmark är adjunkt i matematik, fysik och kemi vid Pauliskolan i Malmö. Hah 
har medverkat i den grundläggande datorutbildniigen i årskurs 3 sedan 1979/80, och 
har därmed stor erfarenhet av den utveckling^som skett på datorsidan alltsedan 
ABC80-tiden. 
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